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EQUIPMENT 


ENTER THE OF DISK CONTROLLERS 
LOOK FOR THE PROPER CONTROLLER 
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ENTER THE NUMBER OF CONTROLLERS 
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FIND THE CHANNEL AND EQUIPMENT 
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LOAD THE'CONNECT CODE AGAIN 
LOAD THE DEVICE NUMBER 
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726+007 

■ 


THAT CAN 

POSSIBLY RUN 

FROM 

THAT QUEUE. EACH QUEUE ELEMENT * 






726+008 



IS HARKED 

KITH .81T23 

TO SAY 

TO THE SCHEDULR THAT IT IS * 

0 

o 




726+009 

"nr 


A TAPE QUEUE. 


* 





726+010 

nf 





* 







nf "V” 

nr nf 4f *1* 4f “V* 

4+ -v nf nf.nf *f nf -v 

nf nf nr nf nr nr nr 

nr nr nr nr nr nf 

nr nr .nr nf v nr nr nr -nr 4* nr nr nf 3 f nf nf nf nf v v tvt nf nf nf nf nf- nf nf nf n 5 - nF 4r 4f nf 4* 


o • 

0 0715 

14277777 

X 

7 26+012 



ENI 

TPUNITSjXZ 


NUMBER OF TAPE DRIVES 

0 

0 0 71.6 

01000733 

p 

726+013 



UJP 

STAR 091 


START THE LLOP 


0 0 717 

p' 

726+014 

b 

f A 8 0 9 

EQU 

nr 




0 0717 

15177775 


72h+ 315 



IN i 

■-2,'Xi 


GRAB SOME MORE STORAGE 



0 0720 

53200000 


726+016 



TIA 

X 2 


GET THE NUMBER OF THE QUEUE 

0 

o 

0 0 721 

156000Q1 


726+017 



INA 

1 


MAKE IT THE NUMBER OF TAPES 


0 0 7 2 2 

40007721 

p 

726+018 



STA 

TEMPI 


TEMP FOR DIVISION 


0 0 723 

14600715 

X 

726+019 



ENA 

TPUNITS 


THE NUMBER OF TAPES POSSIBLE 


o 

0 0724 

13077747 


726+020 



SHAQ 

-24 


DOWN FOR DIVIDE 


00725 

51007721 

p 

726+021 



OVA 

TEMPI 


DIVIDEND 

0 

0 0 726 

13000030 


726+022 



SHAQ 

24 


QUOTIENT DOWN TO Q 



0 0 727 

15577776 


7 2 6+ 0 2 3 



INQ,S 

-1 


NUMBER OF SIMULTANEOUS JOBS 



00730 

53100000 


726+024 



TIA 

XI 


POINTER TO ITSELF 


o 

0 0 731 

35007642 

p 

726+025 



SS A 

BIT 23 


SET SIT TO SAY TAPE QUEUE 

: 0 

00732 

45100000 


726+026' 



STAQ 

0 , XI 


PLACE INTO MEMORY 



0 0 7 3 3 

p 

726+027 

s 

TARO 91 

EQU 

•Sr . 





0 0 733 

02600717 

p 

726+U28 



IJO 

3 T A R 0 9 , X 2 


LOOP TO GENERATE ALL QUEUES 

- O 

o 

0 07 34 

14600723 

X 

726+029 



ENA 

TPUNITS 


NUMBER OF TAPE DRIVES 

0 0735 

12000001 


726+030 



SHA 

1 


MULTIPLY BY 2 


0 0 736 

34001005 

p 

726+031 



RAD 

STAR10 


COUNT FOR LATER USE 



0 0737 

47.107552 

p 

726+032 



STI 

TAPcQP,XI 


SAVE POINTER TO TAPE QUEUE 


o 

0 0 740 

15177775 


726+033 



INI 

-2,XI 


BACK UP TO NEEDED STORAGE 

O 

00741 

53100000 


726+034 



TIA 

XI 


POINTER TO WHERE WE ARE 


0 0 7 4 2 

14700000 


726+035 



ENQ 

0 Tv-: 


MULTIPROGRAMMED TO 1 



o 
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0 

88»3 


P 

Z c b + 0 3 5 

{ 2 6 + LJ a 1 



MIqp, XI 


■00745 

15177775 


726+038 


INI 

-2 , XI 


0 07 46 

53100000 


726+039 


TIA 

XI 

Q 

0 0 747 

14 7 0 0 0 0 0 


726+040 


ENQ 

0 


0J 750 

45100000 


726+041 


ST AQ 

0 , Xi 


0 0751 

47107546 

P 

726+042 


ST I 

NITEQP jXl 


0 0752 

15177776 


Y2 6+04 3 


INI 

-1, XI 

O 

0 0 7 53 

4711007b 

P 

726 + 04 4 


STI 

ENDPOINT,XI 

0 0754 

15100001 


728 


INI 

1,X1 


0 0755 

25006277 

P 

729 


LOAQ 

QGD6Q 


0 0756 

00706241 

D 

> 

730 


RTJ 

LINKIT 

o 

0 0 757 

541 10 0 76 

P 

731 


LOI 

ENDPOINT,XI 

0 0 76 0 

15100002 


73 2 


INI 

2, XI 


0 0761 

25006423 

P. ■ ■ ■ 

73 3 


LOAQ 

BGDQTA8 


0 0 762 

00706241 

P 

734 


RTJ 

LINKIT 

o 

0 0 763 

20007552 

P 

73 4+00 i 


LQA 

TAPEQP 

0 0 7 64 

17677777 


734+0 02 


ANA 

77 7776 


0 0 7 6 5 

14777777 

X 

734+003 


ENQ 

8 A T 0 H Q 


0 076b 

16577777 


734+004 


XOQ ,S 

777778 

n 

0 0767 

53040000 


734+005 


AQA 



0 0 770 

53500000 


734+006 


T AI 

XI 


0 077 1 

16177777 


734+007 


XOI 

777778,XI 


0 0 7 7 2 

25006431 

p 

734+008 


LOAQ 

SCONIG 

o 

0 07 73 

00706241 

p 

734+009 


RTJ 

LINKIT 


U 0774 

20007550 

p 

734+010 


LOA 

FASTQP 


0 0775 

17677777 


734+011 


ANA 

777778 


0 0775 

14700765 

X 

734+012 


ENQ 

BATCHQ 

O 1 

0 0 7 7 7 

ib57 7 777 


734+013 


XOQ? S 

777778 


01000 

53040000 


7 3 4 + Q14 


AQA 



0 1001 

12077776 


7 3 4+015 


SHA 

-1 


0 10 02 

5 3 5 0 U 0 G 0 


/ 3 4+ 016 


TAX 

Xi 

O 

010 03 

23006426 

p 

734+917 


LOAQ 

BCQFQN 

t) 10. J 4 

0 0 7 Q 62 4.1 

F 

734+018 


RTJ 

LINKIT 


010 05 

14100006 


7 34+019 

31A R1 it 

.ENI 

6+.IMPURE, XI 


010 0 6 

25 0 0 6S3 5 

P 

7 3 6 


LOAQ 

8C0N8TQ 

o 

0 10 U 7 

0 07 06241 

P 

7 3 7 


RTJ 

LINKIT 


OlOiC 

5 4 2 0 7 267 

■p 

73§ . 


LOI 

M.AXLP, X2 


01011 

541100 7 u 

P 

. 7 a 9. , 


LOI 

.. .END.POINTrXl 


01012 

U1001020 

P 

• 74 0 ■ ' 


UJP • 

STAR14 

o 

0 1013 

2 0 20 72 7.7 

P 

. 741 

3 T k R i 2 

LOA ■. 

TEMPLP,X2 

01014 

03101016 

P 

7.42 


A L J t NE 

* + 2 


01015 

2 0 0 0 72 7 7 

P 

743 ■■ 


LOA . 

TEMPLP . . 


01016 

401000 C Q 


7 kb 


S'T A. 

. • A • V ^ • 

■ at % A jl .. 

o 

0 1017 

1 4 t 7 7 7 7 ■■■ 


74 5 


INI 

-i, Xi 



01320 

p 

745 + 00 i 

: STAR14 

E Q U 



01020 

j o 6 o a o r. q 


7454*0-02. . 


ISO 

.. 0 y X 2 


01021 

02601013 

P 

/ 4 6 4* 0 0 3 


1 JO 

f AR12 » A2! 

° 




i 4 7' 


■ 1 


01022 

47110076 

P 

748 


STI 

ENDPOINT,XI 


01023 

15 10 IS 0 0 i 


<f 4 9 ’ • 


I MI 

1» X1. 


01024 

25006327 

p 

' 75 0 " 


LOAQ 

8CDLPTA3 

o 

01025 

00706241 

p 

75 j 


RT J 

LINKIT 

0 1026 

641072b 7 

P 

75? 


LDI 

•MAXLP, Xi 


01027 

2.5006332 

P 

'75 3 


LOAQ. 

BCDLPTBL 


010 3 0 

007 06 241 

P 

75 4 ■ ■ 


RTJ 

LINKIT 

o 

010 31 

14104000 


754 + 001 


ENI 

GORE,XI 

0 10 32 

20007533 

P 

754+002, 


LOA 

HOURS 


0 1U 3 3 

0 0 7 0 7 447 

P 

754+903 


RTJ 

ZRE AQ 


010 34 

54110076 

P 

75 4+00 4 


LOI 

ENDPOINT,XI 

o 

01035 

1420001.2 


754+905 


ENI 

i 9 , X 2 


Q10 36 

P 

754+006 

HOURSCHD 

EQU 

,, nr 


0 1036 

20204000 


75,4 + 0 0 7 


LDA 

CORE,X2 

o 

010 37 

40100000 


754+008 


STA 

a s x i 

01040 

15177776 


754+009 


INI 

-1, XI 

U10 41 

0 .2 6 010 36 

P 

754+010 


I JO 

HOURSCHD,X2 


0 10 42 

47110076 

P ■ 

754+311 


STI 

ENDPOINT,Xi 


01043 

15100001 


754+012 


INI 

±,X1 

o 

01044 

25006453 

P 

754+013 


LOAQ 

8CDSCHD 

0 10 45 

00706241 

P 

754+014 


RTJ 

LINKIT 


010 46 

15100007 


754+015 


INI 

7, XI 


U 10 47 

25UU6450 

P 

7 54 + 016 


LD AQ 

BCDRATE 

o 

01050 

00706241 

P 

754+017 


RTJ 

LINKIT 

0 1051 

54104013 


754+018 


LDI 

CORE+11»XI 


010 5 2 

25 0 0 64 4 5 

P 

754+019 


LD AQ 

8CDSHFT 


01053 

00706241 

P 

754+020 


RTJ 

LINKIT 

D 









O 


0 


mMi H0RY 

cr> 

BACK UP FOR TWO MORE WORDS 

POINTER TO THE BLOCK 

ALSO MULTIPROGRAMMEO TO 1 

MAKE ENTRY 

FNITEQF 

BACK UP FREE STORAGE POINTER 

SAVE FOR LATER 

Q 

o 

F8ATCHQF 

o 

FQTABLEF 


GET THE POINTER TQ THE TAPE QUEUE 

MASK TO 15 BITS 

POINTER TO START OF QUEUES 

FLIP BITS 

ADD TOGETHER 

FOR LINKING VALUE 

NEGATE IT 

FNTAPEQF 

LINK UP THE VALUES 

o 


o 


o 

POINTER TO THE FAST QUEUE 

POINTER TO THE BATCH QUEUES 

FLIP ALL BITS 

AGO TO -BATCHQ 

DIVIDE BY 2 

o 


FOR LINKING UP THE VALUE 


FFA5TQNF 

o 

2*CNITE+FAS T+ TASK)=S QUEUES 
/NBATCHQ* 

o 



o 
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<3 




754+023 

v v v v '<* v v v v v v r t 

v -r v v v v v v v yvvtvtv v v v v 

V 


2,4 

V V V V V V V V V V V V V V V V* V V v V v *v* -v *v v V V V V V V V V 

V 

0 





754+024 

* THIS 

SECTION BUILDS FSEN0TA8/ 

■v 






754+025 






* 

O 

d 




7 b 4 + 0 2 6 

THIS 

TABLE IS FORMED THUS 

— 


.. . * 




754+027 

V 





■ ■ ■ ■ ■ V ■ 





754+028 

* WORD 

1 — BCD IDENT ( 4 

BCD 

CHARACTERS ) 






754+029 

* WORD 

2 — VFD A9/HARDWARE 

TYPE,A15/P0INTER * 


o 




754+030 






•v* 

O 




754+031 

* IF THE HARDWARE TYPE IS 

A 

LINE PRINTER, THE POINTER IS A * 






7 b 4 +. 0 3 2 

* RELATIVE POINTER INTO LPTAB 

» 

IF THE HARDWARE TYPE IS TASK, * 






754+033 

* THE 

POINTER IS A POINTER 


ro 

THE APPROPIATE QUEUE LOCATION. * 

O 

o 




754+034 

^ "P -V" .nr V nr VT ¥ V 

v-r r v v v v v r v v v-? v v v 

V 

t -r v ^ 

-r -r r v v t v r v v v v 





754+036 









U i 0 54 

5 4 i 1 0 [] 7 6 

P 

754+037 

LDI 

ENDPOINT,XI 




GET FREE STORAGE POINTER 

O 

o 

010 5 5 

15177776 


7 h h + 0 3 3 

INI 

-1, X1. 




BACK UP TO 2 WORDS BEFORE 

G 1 d 5 6 

14200734 

X 

754+039 

ENI 

TPUNIT3,X2 




NUMBER OF TAPE DRIVES AVAILABLE 


010 5 7 

25 0 0 7 5.51 

P 

754+040 

LDAQ 

MTSENDP 




DEFAULT MT QUEUE SENQTAB ENTRY 



01060 

01001065 

P 

754+041 

UJP 

^ 4* 5 




BEGIN THE LOOP 

O 

o 

01061 

45100000 


754+042 

STAG 

0 , Xi 




STORE INTO MEMORY 

010 5 2' 

15600100 


754+043 

INA 

HF10F 




ADD TO THE DIGITS PLACE 


010 63 

16700002 


754+044 

INQ 

2 




UPDATE QUEUE POINTER LOG 



0 1 0 b 4 

15177775 


754+045 

INI 

- 2 * X1 




BACKUP TO NEXT MEMORY LOCATION 

O 

o 

010 65 

02501061 

P 

7 5 h 4* 046 

I JO 

+~4,X2 




LOOP THE NUMBER OF TIMES NECESSAR 


• 0.10 66 

54207267 

P 

754+047 

LG I. 

MAXLP j X2 




NUMBER OF LINE PRINTERS ON SYSTEM 


0 10 o 7 

01001077 

P 

754+048 

UJP 

BLDSTL2 




START THE LOOP 




010 7 0 

P 

754+049 

8LDSTL1 EQU 






O 

o 

010 7 0 

21207300 

P 

■7 5 h + 0 5 0 

LDQ 

T£MPLP+1,X2 




GET THE IDENT OF THE LIME PRINTER 

01071 

53200000 


' 75 4 + 051 

TIA 

X 2 




LP NUMBER * 2 


01072 

12077776 


754+052 

SHA 

-I 




DIVIDE BY 2 



01073 

3 50 0 75 5 3 

P 

7 5 4+’ 0 5 3 

is S’ A 

LPTYPE 




MAKE IT A LINE PRINTER 

O 

o 

01074 

13000030 


7 5 4 + Cl 5 4 

SHAQ 

2 % 




AROUND FOR TABLE ENTRY 


01075 

45 10 0 0 Q 0 


7 5 4* 0 5 1? 

STAG 

0, XI 




AND PUT INTO TABLE 



01076 

1517 7175 


754 + 0 5 & 

INI 

-2 , X1 




OBTAIN MORE STORAGE TO USE 




010 7 7 

P 

754+057 

SLDSTL2 EQU 

**■■'■■■ 






o 

0 1077 

1060000U 


7 5 4 ’+ 0 5 8 

■ ' ISO 

0 , X2 




COUNT IT DOWN 

O 


01100 

02601070 

P 

75 4+ 1 05.3. 

IJ 0 

BL0STL1,X2 




BY TWOS 


01101 

14200010 


754+060 

ENI 

ISENDT8L , X2 




LENGTH Of DEFAULT SENOTAB 



01102 

01001106 

P 

7 5 4 + 0 & 1 

UJP 

BLOSTLO 




START THE PROCESS 

O 

o 

0110 3 

25207541 

P 

7 54+062 

LDAQ 

ISEND! 8, X2 




GET TWO WORDS 


0:110 4 

45100000 


7 5 4+0 6 3 

STAG 

0t Xi 




INTO MEMORY 


0110 5 

15177775 


754+064 

INI 

- 2 , X i 




BACK IT UP 




0110 6 

P 

754+06 5 

3LOSTLO EQU 

nr 





O 

o 

01106 

10600000 


754+066 

ISO 

0 1 X 2 




COUNT IT DOWN 

0110 7 

026U1103 

P 

754+067 

I JO 

" - 4 * X c 




LOOP TIL THEY ARE MOVED 

'•h/ 


OHIO 

15100 0 0 2 


754+068 

INI. 

2 , X1 




BRING IT UP. TO THE TOP OF TABLE 


o 

011.11 

25 0 0 6434. 

P 

754+0:69 

LDAQ 

BCDSTAB 




SENOTAB 


01112 

OU706241 

P 

754+070 

RTJ 

LINK IT 




UP TO WORD 1 OF TABLE 

0 

01113 

1510 0 001 


754+071 

INI 

1 f X .1 






01114 

25006437 

P 

■■ 754+872 

LDAQ 

.BQDSTAB1 




SEND!ASI 



0 1115 

00706241 

p . 

754 + 07 3 

RTJ 

LINKIT 






o 

0 1116 

15177775 


754+074 

INI 

-2* XI 




BACK UP TO FREE STORAGE 

0 

01117 

20010076 

.' jp 

754+075 

LOA 

ENDPOINT 




GET INITIAL STORAGE POINTER 


0112 0 

471,10 076 

P . 

754+076 

SIT 

ENDPOINT,Xi 




AND SAVE THE GOOD ONE 



01121. 

16177777 


754+077 

XOI 

777778,XI 




NEGATE IT 


o 

01122 

53540000 


754+078 

IAI 

XI 




COMPUTE LENGTH OF TABLE 

0 

01123 

15100001 


754+079 

INI . 

1 , X1 




COMPUTE THE ACRUAL LENGTH 



01124 

25006442 

o 

r 

754+080 

L0A4 

BCDSTABL 




SENOTABL 


o 

01125 

00706241 

p 

7 5 4 + 0 8 i 
754+082 

RTJ 

LINKIT 




AND LINK UP THE SYMBOL 

O 






nr n^-nr nr nr ■$. nr v -v- *5? nr v v v v nr 1 ,- v. 

nr nr nr 

-r V 

nr nr nr nr nr nr nr nr nr nr nr -nr 3 r nr.njr & & &-& nf' nr nr nr nf- * 5 r. n?* *^r *¥’ ^Sr •* 5 r n?' ^. 






754+084 

’r 











754+085 

* INI T 

I A LIZ £ THE LOWER RAT 

E 

' x 

NI 

TEA QUEUE. * 

, 

o 




754+ 0 86 

' 4 * . 






0 





*v •!' •£. ”’«■ v -«* "i* -v *v v 

■^nr-\~nrnrn£nrnr^rnrnrn? V'^Y-VV^TV'T' 

nr -nr -V- 

V V- 

nr nr nr- nr nr nr 'nr nr n£ n?* nr nr nr v nr r nr nr r ^ nr n^ nr Ar ^ nf A* nr nr 





75-4 + 088 









01126 

53010037 


759+089 

T HQ 

DATE 




GET THE CURRENT DATE 


o 

01127 

00777777 

X 

754+090 

RTJ 

SHIFTRAT 




COMPUTE SCHEDULE FROM IT 

0 


0113 0 

2 017 7 7 77 

X 

754+091 

LOA 

RATETAB,X1 




GET CURRENT MULTIPLYER 


1 01131 

12077774 


754+092 

SHA 

-3 




DIVIDE BY 8 



01132 

440 77777 

X 

754+093 

S W A 

LATEFLAG 




AND SET/CLEAR FLAG AS NECESSARY 


o 











0 

o 











0 

o 

























® 
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ft) 
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(T. 

\w 




7 57 

* 





Vi,- - 





758 

* 

SECTION 

ro PROCESS 

THE SECURITY BLOCK 

n? 



■ 



75 9 

V 






O 





v -r v v -v> ‘ 

1 Y v v v v v v ~<r v 

v v ' 4 * 'v v v v v v -r "<—v 

V V V V V -V V V *V "V Y v r V V T V 3 V V V V V -V V * -V- T -V V V ^ VVT v ’r V V 

* * ***** * 

. . 3 





761 










762 








0113 3 

14104000 


76 3 


ENI 

CORE,XI 




O 

01134 

20007517 

P 

764 


LDA 

SECURITY 

GET THE ADDRESS OF SECURITY 

BLOCK 

O 

01135 

00707447 

P 

76 5 


RTJ 

Z RE A0 




U 113 5 

25004002 


76 6 


LDAQ 

CORE+2 




o 

01137 

45007700 

P 

76 7 


STAG 

LOT 



o 

01140 

53420037 


768 


TAM 

DATE 



01141 

1460 G 0 01 


769 ' 


ENA 

1 




01142 

53040000 


770 


AQA 






01143 

53420032 


771 


TAM 

GLQCKLIM 

SET THE CLOCK TO INTERRUPT 


0 

o 

01144 

53410022 


772 


TQM 

CLOCK 

LOAD THE CLOCK RF LOCATION 


01145 

53G1U037 


77 3 


I Sid 

DATE 




01.146 

17577740 


774 


ANGUS 

777408 




o 

0 1147 

15700040 


77 5 


INQ 

4 0B 



o 

0115 0 

00702564 

P 

77 6 


RTJ 

ADJUST 



01151 

41077777 

X 

7 77 


STQ 

TOMORROW 




01152 

21004000 


778 


LDA 

CORE 

CHECK FOR UNSAFE CONDITIONS 




01153 

40007727 

P 

779 


STA 

. SEGMGRO 

SAVE THE WORD FOR LATER 


o 

o 

01154 

17477737 


78 0 


ANA , S 

-00040B 

MASK OUT THE SYSTEM RUNNING 

BIT 


01155 

03001172 

P 

781 


AZJ,EQ 

SAFE 




01156 

11004714 

P 01163 0 

782 


ECHA 

USMSG 





0 1157 

147U0033 


783 


ENQ 

2 7 




o 

01160 

0 U 7 0 7 4 2 6 

P 

784 


RTJ 

OUT 



01161 

2 0 U 0 4 0 0 0 


785 


LDA 

CORE 

LOAD THE NUMBER 



01162 

00001162 

P 

786 


HLT 

TV 





0116 3 

7 / 6 4 4 5 8 2 


7 8 7 

USMSG 

BCD- 

it AUfiSAFE 

CONDITION EXISTSaaa 



o 


01172 

F 

7 8 8 

SAFE 

EQU 

4“ 



o 

o 










■/. O 

o 










O 

o 










; o 

o 










o 

o 










o 

o 










o 

o 










o 

o 










o 

o 










o 

G 










o 

o 










o 

o 










o 
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791 







792 

* SECTION 

CJ 





793 

Y 

Y Y V A* Y Y Y "Y- Y A’ V A* Y A* Y V Y 





796 







796 


O 

0117 2 

1410400u 



797 

ENI 

01173 

20007511 

P 


798 

LLA 

01174 

00707447 

P 


799 

RTJ 


0 117 5 

1410.0 77 7 



80 0 

E NI 

o 

011 75 

20104000 



801 

RQDVCHK LDA 

01177 

53600000 



802 

TAI 

0120 0 

05200227 

X 


803 

ISG 


0 1201 

01001203 

P 


8 04 

UJP 


01202 

00001202 

P 


80 6 

HLT 

o 

01203 

20200215 

X 


60 6 

LDA 

01204 

03201227 

p 


60 7 

A Z J »Gt 


0 12 0 5 

53200000 



80 8 

TIA. 

o 

01206 

13077747 



809 

SHAG 

0120 7 

51007731 

p 


810 

OVA 

01210 

4200512b 

P 01225 

2 

811 

SACH 


01211 

43005127 

P 01225 

3 

812 

SQCH 

o 

01212 

11005070 

P 01216 

a 

SIS 

E CH A 

01213 

14700043 



814 

ENQ 

01214 

00707426 

P 


815 

RTJ 


01215 

00003700 



816 

HLf 


01216 

77 66 3 025 



817 

RQDVM3G BCD 

o 

01227 

0.2501176 

P 


818 

RQQVLGQP IJD 


o 
o 
o 
o 
o 
o 
o 


o 

o 

o 

o 

o 
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CORE, XI 
RQCVLIST 
ZREAO 
WPFB-1, XI 
CORE sXI 
X 2 

MSUNITS,X2 
*• + 2 

ARRAYTBL,X2 IS THE DEVICE ON LINE 

RQDVLOOF JUMP IF SO 

X2 

-24 
01 0 

RQDVMSG+30 

RQD VMSG+31 

RQOW.SG 

35 

OUT 

37000 

9,ADHERE IS MASS STORAGE DEVICE XXaaa 
RQDVCHK, XI 


a 

CD 

Q> 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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0 

'sj|y 




821 

V 






ti.2 2 

- SECTION 

TO FIND THE DATE OF THE LAST LONG BACKUP * 






823 

T 

* 


3 




825 

V -V- V V T '4' V -v* V 'A V V V '•* V V 'A V 

'»* Y *V Y '4' Y Y Y Y "V* Y Y A* Y Y “4" Y Y Y Y Y Y Y Y '4* '4* Y Y Y Y V T Y Y Y V Y "A V V Y *A V tA Y* Y "V "4* Y Y A Y Y A Y Y 

o 





8 2 6 





01230 

20 0 0 7475 

P 

827 

LOA 

BACKLOG 


() 

01231 

1410 40 0 0 


828 

EMI 

CORE,XI 

o 


012 32 

00 70 7447 

P 

829 

RTJ 

ZREAD 


012 3 3 

14100000 


830 

ENI 

a,xi 



01234 

25104000 


831 

8KL01 LDAQ 

CORE,XI 


O ' 

01235 

12 U0 0 014 


832 

SHA 

12 

-v ; o 


0 12 J 6 

17607777 


S33 

ANA 

77778 


012 3 7 

056040U1 


834 

AS 6 

4 0 0 IB 



01240 

01001242 

P 

336 

UJP 

* + 2 


o 

01241 

01001246 

P 

83 6 

UJP 

BKL02 

o 

0124 2 

15100002 


837 

INI 

2, XI 



01243 

06100777 


83 8 

ISG 

WPFB-luXi . . 


: 

0 1244 

01001234 

P 

8 39 

UJP 

BKL01 


O 

■ 

012 45 

14/00000 


■ 84.0 . 

£NQ 

0 . . 

^ o 

0 124 6 

41007677 

P 

841 

3KLG2 STQ 

LBKQATE 


O 







o 

o 







o 

. 

o 







o 

o 







0 

o 







o 

o ■ 







: ^ o 

o 







o 

o 

■ 







: o 
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o 

o 







o 

o 
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o 
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j 
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v v -r v v v v v v v v v v v v -v* v v v vrr v-r y v vv v v -nr v v v 
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CD 





845 

v* 

LOAD 

THE 

AUTOLOAD/AUTODUMP REGION * 







846 





V 


Q 

o 




84 8 

V V 'i~ V . V W V V* 

r v v -v '? v 

V V V 

v v v v v v v ~r ir v 'r v v v v v v v v v t 

v 'i' v "i* v v -r -v- -'r -v- v *r *r v v v •V v -r Ar -v 1 nr •v v v v v v ■¥ A' Y 






849 









01247 

14100077 


8 5 Q 


EMI 


778,XI 

LOAD THE AUTOLOAO/AUTOCUMP REGION 


O 

o 

0 1250 

2.0101254 

P 

851 


LD A 


AUTOLOAD,XI 



01251 

4010 3700 


852 


STA 


3 7 0 0 B , X1 




01252 

02501250 

P 

8 5.3 


IJD 


“--2 , XI 





0 12 53 

U1U 0.13 54 

P 

85 4 


UJP 


AUTQDQNE 



o 

o 




855 ' 










856 

V 

THIS 

IS 

THE PROGRAM WHICH ACTUALLY RESIDES IN THE EXECUTIVE 






857 

■v 

MODE 

AUTOLOAO/AUTODUMP REGION 








858 







o 

0 


0 0 0 0 0 


859 

CBN 

EQU 


0 

MASS STORAGE CHANNEL HUMBER 



0 0010 


86 0 

EQN 

EQU 


0010Q 

MASS STORAGE EQUIPMENT NUMBER 




0 0010 


861 

BOOT 

E.QU 


000100 

DISK ADDRESS OF BOOT 





0 0.0 0 4 


862 

ABNORMAL 

EQU 


0 0048 

STATUS BIT FOR ABNORMAL CONDITION 



o 


0 00 0 2 


863 

DK.8U3Y 

EQU 


0 0 028 

STATUS BIT FOR DKBUSY 


o 


0 0010 


864 

QKLOA.Q 

EQU 


0 0108 

FUNCTION CODE FOR DKLOAD ADDRESS 




0 0 0 4 0 


865. 

DKREAO 

EQU 


0 04 08 

FUNCTION CODE FOR DKREAO 







8 6 b 








o 


75353 

P 

867 

11 

EQU 


*-37008 



o 

v^/ 


01254 

P 

86 8 

AUTOLOAD 

EQU 


-v* 





0 1254 

14700010 


869 


EMO 


BOOT 





01255 

14203724 


870 


EH I 


ALOAD,X2 

SAY THIS WAS AUTOLOAD 



o 


03702 


871 

ZAP 

EQU 


*~Z2 



o 

01256 

77517777 


372 


IO CL 


77778 




0 1257 

41003777 


8 73 


STQ 


OISKAOD 





01260 

22017441 

03710 1 

874 . 


LACH 


CHANNEL 

LOAD THE CHANNEL NUMBER 


o 

o 

01261 

77540000 


8 7 5 


AC I 



SELECT PROGRAM STATE ZERO 


U 1262 

14600000 


876 


ENA 


0 



01263 

77634000 


877 


ACR 



CLEAR RG5, INTERRUPT ENABLE 





03710 


878 

CONNECT 

EQU 


*~Z.Z 



o 

o 

. ■ '■. ■ ' ' ' 

1.7441 


8 7 9 

CHANNEL 

EQU 


C0NNECT*4+± 






88 0 




CHARACTER ADDRESS OF THE CHANNEL 






eiu 





NUMBER IN THE CONNECT INSTRUCTION 





01264 

p 

882 

MS00CON 

EQU 





o 

o 

01264 

77000010 


88 3 


CON 


eqn,c m 



01265 

GIQ 0 3?0 2 


884 


UJP 


ZAP 




01266 

77103010 


88 5 


SEL 


DKLOAO,SELECT 





0 1267 

01003702 


886 




ZAP 



o 

o 

012 7 0 

76004000 


887 


OLITM..; 


10,DISKADO,OISKA DO+1 



012 71 

00003777 











01272 

010 03 7 0 2 


8.38 


UJP 


ZAP 




0 

01273 

14103721 


889 


ENI 


*~2Z*-2,1 



o 

01274 

01003731. 


89 0 


UJP 


W A IT 



012 75 

77100040 


891 


SEL 


DKREAO,SELECT 




0.1276 

01003702 


89 2 


UJP , 


ZAP 

JUMP TO THE PROPER INPH 




01277 

01200000 


89 3 


UJP 


0 , X 2 


o 

o 


03724 


894 

ALOAD 

EQU 


*-zz 



013 0 0 

740 040 GO 


895 


INPH 


10,0,40008 




013 31 

OQQGUUOQ 











01302 

010Q3702 


89 6 


UJP 


ZAP 




o 

01303 

20003710 


897 


LOA 


CONNECT 



o 

013 0 4 

14100000 


S9S 


ENI 


000008,1 





0 3 731 


83 9 

WAIT 

EQU 


Z- 





013 05 

77200004 


90 0 


EXS 


ABNORMAL,SENSE 



o 

o 

' 

01306 

01003702 


901 


UJP 


ZAP 



01307 

77200006 


902 


EXS 


ABNGRHAL+QKSUSY,SENSE 



0 1310 

01003731 


903 


UJP 


WAIT 





■01311 

77300001 


904 


INS- 


00010,SENSE 



o 

o 

01312 

01 0 0 3 7 0 2 


90 5 


UJP 


ZAP 



01313 

01100000 


906 


UJP 


0,1 








90 7 












908 







o 

o 


01314 

p 

9 0 9 


ORGR 


Z Z + 3 7 4 0 B 

ORGR TO AUTODUMP 


01314 

00003740 


910 


HLT 


03740B 




01315 

14700004 


911 


ENQ 


4 

START WITH PAGE 1 





03742 


912 

PFCHEC02 

EQU 


*-ZZ 



o 

o 

01316 

14200017 


9.13 


£ NI 


178,XZ 

2 0B PAGES / BANK 



03743 


914 

PFCHEC 04 

EQU 


*'-22 




01317 

77654000 


915 


PFA 


0 , X 2 





01320 

17600774 


916 


ANA 


0 7 7 4 B 

JUST THE PAGE BITS 



o 

0 13 21 

03503750 


917 


AQJ,NE 

*-ZZ+3 

JUMP IF NOT THE PAGE WE ARE 


o 

01322 

15700004 


918 


I HQ 


0 0 4 B 

CHECKING ADVANCE TO THE NEXT 




01323 

01003742 


919 


UJP 


PFCHEC02 

PAGE 



o 











o 
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(D 

0 i 3 2 4 

0 2 6037 43 

920 


IJU 
5H AQ 


01325 

13 0 0 U 0 3 U 

9 21 



01326 

7 7 6 4 0 0 0 1 

92 2 


APF 

o 


0 3753 

923 

ENUREADA 

EQU 

0 1327 

14700000 

924 


EN Q, 

U 1 o o 0 

14203756 

92 5 


EMI 


01331, 

01003702 

92 6 


UJP 

o 

01332 

74010000 

927 


INPW 

01333 

00004000 




01334 

01003702 

923 


UJP 


01335 

14104000 

929 


ENT 

o 

0 1336 

01003731 

930 


UJP 


01353 P 

931 


ORGR 


03777 

932 

DISKAOD 

EQU 


j U 1353 

00000000 

933 ■ 


VFD 

o 


01354 P 

934 


ORGR 


01354 P 

935 

A U T 0 0 ONE 

£QU 

o 







o 


o 


o 

o 

o 


o 

o 

o 


o 




^FCH£C04,X2 P^ShbER F T§ T F E ZER ° 

1 

- z z 

IMPURE ENTER THE ADDRESS OF THE END PAGE fl 

*-ZZ+2,X2 ENTER THE ADORESS OF THE INPW ^ 

ZAP 

IO - , 40000,4000B+4000B READ A PAGE 

ZAP O 

40008,XI ENTER THE RETURN ADDRESS 

WAIT 

ZZ + 037778 O 

*-zz w 

A24/IMPURE 
ZZ+400QB 

* o 


o 


o 


o 


o 


Q 


O 


O 


O 


O 


o 


o 


o 


o 


o 


o 



(I 

<D 

3 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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V V V V V '«' V V V 

938 * 





939 

-Y- 

SECTION 




940 

V 

ARE NOT 




941 

V 

X X X * * X -Z X 

V V V V Y Y V V V 




943 






944 



01354 

20007537 

P 

945 


LD A 

01355 

77700000 


9 4b 


SLS 

01356 

40007537 

P 

947 


STA 

01357 

12077774 


947+001 


SHA 

01360 

lboOOUGl 


947+002 


XOA 

01361 

17600001 


947+003 


ANA 

013 62 

34077777 

X 

947+Q04 


RAO 

0 1363 

77630000 


946 


CRA 

01364 

53020022 


949 

SWCHK 

THA 

01365 

4 U 0 0 7 b 7 5 

p 

950 


STA 

01366 

14600007 


961 


ENA 

01367 

77664000 


952 


AIS 

013 7 0 

7 7 6 6 0 0 0 11 


953 


AOS 

01371 

± 4 6 u d 0 0 1 


954 


ENA 

0137.2 

12000002 


955 


SHA 

01373 

14200016 


95 6 


ENI 

01374 

7 7 6 4416 i 


957 


APF 

01375 

02601374 

p 

958 


IJD 

0 1376 

14600002 


95 9 


ENA 

013 77 

12000002 


96 0 


SHA 

0140 0 

77640160 


961 


APF 

01401 

55400000 


962 


VFO 

01402 

14177776 


963 


ENI 

01403 

21077777 


964 


loo 

01404 

21100000 


965 


LOQ 

01405 

0 250140 4 

p 

966 


I JO 

01406 

55000000 


967 


VFO 

01407 

21007662 

p 

968 


LOQ 

01410 

14107777 


96-9 


EMI 

01411 

55400000 


970 


VFO 

0.1412 

4110 0 0 0 0 


971 


ST Q 

I 01413 

02501412 

■p 

972 


IJO 

014.14 

55000000 


97 3 


VFD 

] 01415 

21007663 

p . 

974 


LOQ 

01416 

55400000 


9.75 


VFD 

01417 

41000002 


976 


STQ 

01420 

55000000 


977 


VFD 

014-21 

21007662 

p 

978 


LOQ. 

014 22 

410 0 0 0 0 5 


979 . 


STQ 

01423 

14700000 


98 0 


ENQ 

U 14 2 4 

2u 0 0143 1. 

p 

981 


LOA 

01425 

40000006 


982 


31 A 

01426 

14600040 


9,8 3 


ENA 

01427 

77634000 


984 


ACR 

01430 

01077777 


985 


UJP 

01431 

01001432 


986. 

BPIUJP 

UJP 

01432 

77630000 


987 


CRA 

01433 

53G2Q022 


988 


TMA 

0 143 4 

31007675 

P 

939 


SB A 

01435 

14700454 


99 8 


ENQ 

0143 b 

03601364 

p 

991 


A c4 J t G E 

01437 

.1460 00 00 


992 


ENA 

01440 

77664000 


993 


AIS 

01441 

77660000 


994 


AOS 
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' ' Ar 

TO CHECK THAT THE BPI AND BPO SNITCHES CN THE CONSOLE 9 
ACTIVE 9 

'/■ V *r T V "r -T V v V V -V- V-V V v V -V V T V -v- v V V V V V V V ^ V T T 'i* V V V V V A!* V V V V V T V V V Y T v v ■? 


SLSBITS GET SLSBITS PROP. SYMBOLS BLK 

ALLGW A TO 8E CHANGED 

SLSBITS SAVE FOR FUTURE REFERENCE 

-3 GET EXPERIMENTAL/NORMAL SYS BIT 

00001B FLIP IT 

00QQ1B MASK TO 1 BITS 

NORMSYS MAKE EXPERIMENTAL SYSTEM IF NOT 

JUST IN CASE 

CLOCK 

TIME 


PFLOC 

2 

16B iX2 
161B + PFW t X2 
*-l>X2 
PFLOC+1 
2 

160B+PFW 
A9/R0S 
71 7766,XI 
777778 
0 , XI 
*-i»Xl 
A9./RI.S 
NOP 

7 7 7 7 B » X1 
A9/R0S 
00000,XI 

A9/RIS 

STQZERO • ■ 

A 97 R OS 
00 0 02 
A9/RIS 
NOP 

000058 . 

a' 

BPIUJP 

09006B 

4..0B....... SET PROGRAM STATE 

777778 
* + l 

CLOCK 

TIME 

SNCHK JUMP IF A SNITCH WAS SET 

0 


a: 

CD 

0 

a 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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n 








w 





99 7 








99 8 


SECTION 






999 



O 






v v> -ir •!»* v v v -r- 6r 

V V V V V V V 





1001 

1002 





0144 2 

25001477 

P 


100 3 


LDAQ 

O 

01443 

45000011 



1004 


STAQ 

01444 

20007525 

D 

s 


100 5 


LOA 


01445 

36007632 

p 


1006 


SCA 

o 

01446 

64 00 6 6 7 Q 

p 

.01476 9 

1007 


MVE 

01447 

00006370 

p 

01476 0 




0145 0 

0 U 010 0 01 







01451 

03001502 

p 


1008 


A Z J , £Q 


01452 

11006274 

p 

01457 0 

10 0 9 


ECHA 

o 

0145 3 

14700030 



1010 


ENQ 


jj 14134 

00707426 

p 


1011 

BOPOUT 

RTJ 


01455 

7/63U00Q 



1012 


CRA 

o 

1 01456 

00003700 



1013 

1014 


HLT 

0 1457 

77776364 



1015 

Arn 4 Cl 

BDPMESS 

BCD 


01465 

77776364 



■ 1,Uxo. . 

1017 

aOPMESSi 

8 GO 

O- 


0 00 30 



1018 

1 fl i Q 

aDPMESIL 

E Q U , C 


01473 

11006324 

p 

01465 Q 

JL Jikc 

102 0 

BifPON 

ECHA 


014 74 

14700030 



1021 


ENQ 

o 

01475 

01001454 

Q 

5 


.10 2 2 


UJP 

0 1476 




102 3 
1024 

BOPBUFF 

BSS 



014 7 7 

14 Q 0 U 0 0 0 



1025 

SOPJUMP 

HOP 

n 

015 0 0 

01001501 

P 

6 

1026 


UJP 


015 01 

0 3 0 014 ? 3 

P 


10 2 7 


AZJ* EQ 



015 0 2 

P 


1 Ci 2 8 

3DP0K . 

EQU 

O 

01502 

77630000 



102:9 


CRA 


o 


o 



o 


o 

o 

o 


o 
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Y 

TO CHECK THE BOP * 

.... -v 

'r v -r v v v if v v v v v -v v v v -v v v v v- v v v v v v v v v -v- v v *r r v v v r v v v v-*A ^ v -r v ^ y t v v y 


BOPJUMP 
00011B 

30P check the symbol block for 

BCGON PROPER STATUS 

BOPBUFF,Q,1,BOPBUFF,0,1 THIS SHOULD TRAP TO 10 


BOPOK JUMP IF BDP SHOULD BE ON 

80PMESS 

24 

OUT 

37 0 OB 

06,aaTURN OFF THE BDPaaaaaaa 

6 , TURN ON THE BOPa^aaaaaaa 
*-B 0PM£SSi. 

BOPMESS1 

QDPMES1L 

BOPOUT 

i 

0 

*♦1 

8DP0N . JUMP IF BDP SHOULD BE 0N 

'•Ir 


® 

3 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

O' 

o 

o 

o 
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26 






1032 







10 33 

* SECTION 

TO CHECK THE 





10 34 


i* v v v -r *r -j* 4 -V* -v v v 





10 3 b 
1037 



01-5 0 3 

iHb 0 0 U 0 & 



1038 

E N A 

6 

015 0 4 

00101507 

P 


1 0 d 9 

SJl 

* + 3 

015 0 5 

47007710 

P 


104 0 

3TI 

3J1FLAG,0 

015 0 6 

15477776 



1041 

IN A ? S 

-1 

915 0 7 

00201512 

P ' 


1042 

SJ2 

* + 3 

01510 

47007711 

P 


1043 

SIX 

SJ2FLAG* 0 

01511 

15477776 



10 44 

1NA,S 

-1 

01512 

003Q1515 

P 


1045 

3 J 3 

*+3 

01513 

47007712 

P 


1046 

STI 

SJ 3FLAG » 0 

01514 

15477776 



1047 

I HA t S 

-1 

01515 

G040152Q 

P 


1048 

S-J4 

* + 3 

0.1516 

47007713 

P 


1049 ' 

STI 

■ SJ4FLAG > 0 

01517 

15477776 



10 5 0 

INA,S 

, .X'.' 

0 15 2 0 

00501523 

P 


1051 

SJ5 

+ 3 

015 21 

47007714 

P 


1052 

STI 

SJ5FLAGjO 

01522 

15477776 



1053 

INA,S 

-1 

01523 

00601526 

P 


10 54 

S Jto 

* + 3 

015 24 

47007715 

P - 


1055 

STI 

SJ6FLAG,0 

01525 

15477776 



1056 

10 57 

INA,S 

-1 

01526 

03001532 

P 


105 8 

A l 3 y EG 

* + 4 

015 27 

11026064 

P 

05415 a 

1059 

ECHA 

SJMESS 

015 3 0 

14700036 



106 0 

ENQ 

3 0 

01531 

00707426 

P 


10 6 1 

RTJ 

OUT 



JUMP SWITCHES 



V V V V V V V V V V V V T 1 V V TT -v V V V V V V V V V V v VVVYV'^lf 


SAY NO SWITCHES SET 


JUMP If NO SWITCHES SET 
TELL THE OPERATOR TO TURN 
THE SWITCHES OFF 


0 

Cl 

0 

O 

o 

o 

o 
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o 
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o 
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o 

o 

o 

o 

o 

o 


o 
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V 

TO CHECK FOR READ STORAGE SWITCHS BEING SET ^ 

A* V V V Y A' At V V A* V A' V V A' V A* A* Y V Y V v V ^ V V A* V A* V V V T V V V V V V V V V Y A' Y T Af* T A? Y A" A? 


7 SET THE ISR AND OSR 


-10 0 G SET A FAKE REFFERENCE TIME 

Ar ;■ 

TIME 

2 0 0 ^ ^ ^ 

40003 ’ ‘ SET THE WHOLE STATE EXCLUDED 

161B+PFW,X2 

¥ «-I?X2 . 

PFLOC+PfLOC+PFLOC+FFLOC 

160B+FFW 

STGFROL~l,Xi 

STOFRO» XI 

A9/R0S 

G -j XI 

A9/RIS 

-~4,XI 

NOP 

000058 

STOUJPA SET THE VARIOUS JUMPS 

Q0GI5B 
STCUJP 
000068 

408 SET PROGRAM STATE 

0 


CLOCK WAIT i/2 SECOND FOR THE ILLEGAL 

500 WRITE 

0 PROVIDE READ OP CYCLE 

0 AND STORE OP CYCLE 

CLOCK 

-“STOPR.O-3 HAVE WE WAITED LONG ENOUGH 

*~SIGRRO 

•-STOPRQ . 


CLOCK IS IT TIME TO BITCH 

time 

STOCHECB JUMP IF NOT 

STOMESS 

28 

OUT 

CLOCK SET THE NEW TIME 

10008 ' . ......... 

STOCHECA 

* +1 

160B+PFR SET THE SECOND PAGE 

1618+PFW 
4 0 0 GB 
1608+PFW 
A9/R0S 
040 028 
040038 
040058 
A9/RIS 
STCUJP O 
000068 

40 B SET PROGRAM STATE 

400 08 


CD 

0) 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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0162 7 

7 7 7 76364 

114 2 

1143 

1144 

3TO MESS 8 C 0 » C 

2 8 , aaJURN 

0 16 3 6 

01001637 P 

1146 

STOUJPQ UJP 

*'.+ i 

U 1 u 3 7 

776300U0 

1146 

OR A 


0 164 0 

146 0 0 0 0 0 

1147 

ENA 

0 

0 1641 

77664000 

114 8 

ATS 


01642 

77660000 

1149 

AOS 



0 I 
o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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SECTION TO PRINT AM INFORMATIVE MESSAGE IF NOT ALL MEMORY 
IS AVAILABLE TO THE SYSTEM 






115 5 










T r v v r ‘f r v v 

v v -r v v v v v 

V V V V V V V V T -T»“ -v* "V •*«' *V v *V V V 

v -v- *r v v v v y v v r rvv'r^rrTT v t v-vr-r ■v-vv v 3r J i* r -v 





1157 

115 8 





0 1643 

14100000 



1159 


ENI 

0, XI 

ENTER HUMBER OF RESIDENT PAGES 

J 1644 

14700000 



1160 

SYSPAGE 

ENQ 

IMPURE 

01645 

01001663 

P 


1161 


UJP 

MCK.Q3 


016 46 

7746 454 3 



1162 

COREMSG 

BCD 

9,aONLY XXX PAGES 

GF CORE AVAILABLEa 

01657 

20100421 

X 


1163 

MCK01 

LGA 

PAGET ABLiXI 


01660 

03101662 

P 


116 9 


AZ J t ME 

MCK 02 


0 1661 

15700001 



1165 


INQ 

1 


01662 

15100001 



1166 

MGKQ2 

INI 

1., X1 


01663 

05100407 

X 


1167 

MCX03 

ISG 

NUMPAGES j XI 


01664 

01001657 

p 


1168 


UJP 

MCKU1 


0 1665 

20Q07535 

p 


1169 


LOA 

PAGECORE 

HOW MANY PAGES SHOULD THERE BE 

0 1666 

03401710 

p 


117 0 


AQJ.EQ 

MCK04 

JUMP IF NOT ENOUGH PAGES 

01667 

03601676 

p 


1171 


AQJ,GE 

MCK03X 

01670 

146 0 0 0 7 7 



1172 


ENA 

77B 


016 71 

42007236 

p 

0164? 2 

1173 


SACH 

COREMSG +6 

MOVE THE RETURN 

01672 

14 6 0 0 0 0 5 



1173+001 


ENA 

5 

REMOVE THE FIRST FIVE CHARACTERS 

01673 

34001705 

p 


1175 


RAD 

MCK03Y 


01674 

16477777 



1176 


X O A »S 

-0 


01675 

34001706 

p 


117 7 


RAD 

MCK03YY 


01676 

14600000 



1178 

MCK03X 

ENA 

a 


0167 7 

51007731 

p 


117 9 


OVA 

D10 


0170 0 

93007240 

p 

01650 0 

118 0 


3QGH 

COREMSG +8 


i) 17 01 

13077747 



1181 


SHAQ 

-24 


0 17 0 2 

51007731 

p 


118 2 


OVA 

D 10 


01703 

43007237 

p 

01647 3 

118 3 


SQCH 

GOREMSG+7 . 


01704 

420Q7236 

p 

01647 2 

116 4 


SACH 

COREMSG +6 


0 17 05 

11007230 

p 

016 46 0 

118 5 

MGK03Y 

.E.CHA 

COREHSG+IMPURE 

ENTER FGA OF THE MESSAGE 

017 06 

14700042 



118 6 

MCK03YY 

ENQ 

34+IMPURE 


017 0 7 

00707426 

p 


118 7 


RTJ / 

OUT 



01710 

p 


1 .18 8 

.11CK04 

EQU 

V- 



0 1710 
01711 
01712 
01713 
01714 
01715 
01716 
01717 

017 2 0 
01721 
01722 
017 2 3 


14577777 
14600000 
14100020 
06101657 X 
140000Q0 
isioaoDi 
17477774 
40077777 X 

146 0 0 774 
14200160 
77644020 
02601722 P 


113 9 
11.98 

1192 

1193 

1194 

1196 

1197 

1198 
1198 
120 0 
1201 
1202 
120 3 
1204 
12 0 5 
1236 
12 0 7 
1208 
1209 


"V 


f if Jj§> if 3$. J 


« 14 14 1 L I-, 1 L .-j-. 17 - --*1 .-jl Ijl ^4 l t L .-I <^1 


-sf -v* -r* v •a* tt tt. 


-v* v “S* t r t?- <¥ t?- 'S* # J 


SECTION TO INITIALIZE THE MEMORY PAGE ARRAY WORD (MEHARRAY) 


*|*t . <*j^» * 


ENQ»S 

ENA 

ENI 

MEQ 

NOP 

SHAG 

ft N A r S 

STA 

ENA 
ENI 
APF 
I JO 


^ "V 1 ■v*- "Sr. "¥* *¥• ^ v •? -v- -tt *v* ‘V* *v : ^ 3?*' .nr 3?" “5 t *5?* ■*5r *v r?* ^ nr 

\7777 7B . . 

0 

1 12 f .X .1 

PAGETABL,! 

1,X1 
77 7748 
MEMARRAY 

7 7 4 33 

1773-178,X2 
0 2 Q 8+PFW » X2 
*-i ,X 2 


SET STATES 1-7 TO N0N-EXI3TANT 
MEMORY 


•!?*{<* 
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.1212 

V 




* 




1213 

-V- 

SECTION 

TO ALLOCATE THE 

MEMORY IN PAGE ZERO 

* 




1214 

nr 




■ nr 





"■ 4* v v v r 

V V Y V V Y V Y V Y V Y 

-r Y V V Y V T Y r Y Y -V~ V Y Y Y V Y Y Y Y Y Y Y Y Y Y Y Y Ar ’/■ Y Y Y Y Y nr Y *«' Y "Y Y Y Y Y Y Y Y Y Y Y Y 

nr -Sr rsr nr 




1216 









1217 






01724 

14100030 


1210 


ENI 

RESIDENT-liXl 



01725 

20100000 

F 

1219 


LOA 

ZERO,XI 

MOVE THE ZERO RESIDENT 00WN TO 

0 

01726 

40100000 


1220 


STA 

0 0 0 0 0 B,XI 



0 17 27 

02501725 

P 

1221 


£ JO 

*-2,Xi 






1222 









1223 

-v* 

ALLOCATE 

THE MEMORY IN 

1/4 PAGE ZERO 





1224 






01730 

14300010 


1225 


ENI 

8 , X3 

SAY 1/8 PAGE 


01731 

14600400 


1226 


c. N A 

004008 

FIRST 1/8 PAGE 


01732 

14200400 


1227 


ENI 

0040GB,X2 




01733 

P 

1228 

PZ01 

ECU 

*• 



01733 

5350QG00 


1229 


TAI 

Xi 

SAVE THE ADDRESS 


01734 

0077 7777 

X 

123 Q 


RIJ 

FREEMEN 




01735 

P 

1231 

PZ02 

EQU 

4' 



01735 

53200000 


1232 


1 X A 

X 2 

GET THE LAST DECREMENT 


01736 

1207777& 


1233 


SHA 

-1 



01737 

53600000 


1234 


TAI 

X2 

SAVE THE CURRENT DECREMENT 


01740 

16477777 


' 123 5 


X 0 A -j S 

777778 



01741 

53140000 


123 6 


A.IA ■ 

XI 

OBTAIN THE NEXT ADDRESS 


01742 

05600031 


1237 


ASG 

RESIDENT 

IS IT OK 


01743 

02701735 

P 

1238 


IJO 

P Z Q 2 »X 3 

TRY FOR ANOTHER ADDRESS 


0 17h4 

02701733 

P 

1239 


•I JO 

PZQi,X3 

GO FREE THE BLOCK 





124 0 









. 1241 

■? 

ALLOCATE 

THE MEMORY IN 

i/4 PAGES 1-3 





1242 






01745 

14101000 


1243 


. E 1^1 

laooBsXi 



01746 

14200Q11 


1244 


ENI 

9, X2 

START WITH 1/4 PAGES 


01747 

14600001 


1245 

PZ 03 

ENA 

i 



01750 

12200000 


124b 


SHA 

■ .0,X2 

FORM BLOCK SIZE IN WORDS 


01751 

53140000 


124 7 


AIA 

■ Xi : 

GET BLOCK ADDRESS 


01752 

14703701 


12.43 


: .ENQ 

.3 7.0 IB 

START OF THE AUTOLOAD REGION 


0 1753 

03601763 

P 

1249 


AitJvGE... .. 

^ .PZ04: . .. .. . 

JUMP IF IT WONT FIT 


01754 

44001756 

P 

1.25 0 


SNA 

* + 2 



01755 

53100000 


- 1251. 


TIA 

XI 



01756 

14100000 


1252 


ENI 

IMPURE » Xi 

PUT BLOCK ADDRESS INTO XI 


01757 

4/201760 

P 

le.53 


STI 

*+l*X2' 

BASE 2 LOG Of SIZE TO INDEX 3 


01760 

143 0 0 0.00 


■1254 


ENI 

IMPURE,X3 



01761 

00701734 

X ■ ' ' ■ ' 

12.5 5 : ■ 


RTJ - . 

■ FREEMEN. . . 

GO FREE THE STORAGE 


0 17 ’a 2 

0 i 0 0 1 7 4 7 

p 

il 


it sn . 

:F2 03 .6 

TRY FOR ANOTHER BLOCK 


U i 7 b 3 

02601747 

p 

1257 

-PZQ4 

t j n 

A«J u . 

. P Z fl 3 , X 2 ' 

LOOP THRU ALL SIZE BLOCKS 




a 

CD 

3 

o 

o 

o 

o 

o 

o 

CD 


o 

o 


o 


o 


o 

o 

o 

o 

o 

o 

o 
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1260 

1261 

1262 

1263 

12 6 5 


? r v v v v 'r -r v -r v v v r nr v r v -r v v r ^ v v v v v v v v v y y v v v 

nr 


SECTION TO FREE AVAILABLE 
THE NEAREST PAGE BOUNDARY 


MEMORY BELOW THE SYSTEM AND ABOVE 
TO THE FREE STORAGE LIST 


'nr nr v v nr r vn~ nr i* r'r * 


* v v *•* v v -r r nr 


-V' -r */• v t 


017 6 4 

5421UU76 

P 

1 Z 6 6 

LDI 

ENDPOINT, 

01765 

15200002 


1267 

INI 

2 , X 2 

0 17 66 

47201775 

P 

126 0 

STI 

FREESKIP, 

01767 

15277775 


1269 

INI 

- 2 , X 2 

017 7 0 

17274000 


1270 

ANI 

74000B,X2 

01771 

14300012 


1271 

ENI 

10, X3 

01772 

14 6 0 0 Oil 


1272 FREE! 

ENA 

1 

017 7 3 

123000UQ 


127 3 

SHA 

0 , X3 

01774 

532h-0000 


1274 

AIA 

X 2 

0 17 75 

05600000 


1275 FREE3KIP 

A 3 G 

IMPURE 

01776 

01002000 

P 

1276 

UJP 

FREES 

01777 

01002005 

P 

127 7 

UJP 

FREE-3 

0 2 0 0 0 

44002003 

P 

1278 FREES 

SWA 

* -f 3 

020 01 

532 0 0 0 0 0 


127 9 

TIA 

X 2 

02002 

00 701761 

X 

128 0 

RT J 

FREEMEN 

02003 

14200000 


1281 

ENI 

IMPURE,X2 

02004 

01001772 

P 

1282 

UJP 

FREE1 

02005 

02 701772 

P 

1283 FREES 

1284 

1285 

130 

FREE1 1 X 3 




. nf -Sr nr -*<r nif Tif nf 

nr nr nr nr nr nr nr n L nF 

nr’^.’nr nrnr nr nr nr nr nr nr 




1287 '* 

1288 - * 

1289 - 

SECTION 

TO MOVE IOL 




nr nr nr nr -v* nr nr nr nr nr nr ~r -nr nr nr nr nr nr 

•¥* & & & * 




1291 



02006 

14300007 


1292 

ENI 

7 *X3 

02007 

QU 777777 

X 

12.93 

RTJ. 

GETMEM 

02010 

53500000 


1294 

TAI 

XI 

0 2011 

25006316 

p 

129 5 

LOAD 

BCD IDLE 

0 2012 

00706241 

p 

1296 

RTJ 

LIN K1T 

0 2 013 

15177777 

X 

1297 

INI 

USRNUM,XI 

020 14 

25 0 Q6321 

p 

129 8 

LDAQ 

BCQSYSVL 

0 2015 

00706241 

p 

1299 

RTJ 

LINKIT 

0 20 16 

20007523 

p 

1299+001 

LOA 

USER 

0 2 017 

40077777 

X 

1299+002 

STA 

SYSVAL 

02020 

14.1 77777 

X ; 

130 0 

ENI 

IDLE,XI 

0 2 0 21 

15177777 

X 

1 3 01 

INI 

VMM,XI 

0 2 0 2 2 

25 G 0 6 3 2 4 

P 

13 02 

LDAQ 

BCD Z'ROPG 

U 20.2 3 

00706241 

F 

i 3 0 3 

RTJ- 

LINKIT 

0 2 0 2 4 

14200177 


1 3 0 4 

ENI 

2+7-1,X2 

0 20 25 

.20277777 

X 

" 1305 

LOA 

XIQLE * X2 

0 20 26 

40202020 

X 

i 3 0 8 

STA 

IB L E, X 2 

0 20 27 

02602025 

,p , 

i itT ij 1 

I JO 

*-2,X2 

0 2 0 3 0 

14602026 

X 

1308 

ENA 

IDLE 

rTVl'.D'LE;;:-;^ Trl 

0 2031 

40 0.020 30 

X 

-130 9 

1310 

STA: . 


0 2 0 3 2 

14100000 


1311. 

ENI 


02033 

25106271 

p 

1312 STAR16 

LDAQ 

LINKTAB, X' 

0 203 4 

03002036 

p 

1318 

A 2 J ■» E G 

*+2 

020J5 

00002036 

p ■ 

1314 

HLT 

* + 1 

0 2036 

15100003 


131.5' 

INI 

3., XI 

0 20 37 

05100231 


1316 

ISG 

LINKTABL, 

0 20 40 

01002033 

p 

1317 

UJP 

STAR16 


* 
* 

* v v v v v t t v v A’ v v r v if v rv v v v v v v ir nr nr* nr nr -^r nr V nf v *3r 

LOAD END OF ALLOCATED MEMORY 


• nr ”?r nr vif nr nr nr nF nF’ nr nr nr nr nr nr; nr nr nr nr nf t T v nr nr v nr nr 

: INTO FREE STORAGE 

» nr nr <nr nr nr nr 3fnfnfnfnfnfvnrnfnrnrTVT^'VTn 


■ ..nr nr. nr nr. nr 


# * * nF ~ 


' *■ 

' * 

4* nr nr "V- -n^ "r nr nf- -n?’ *nr -v -^r nr n? 1 nf 


ASK FOR 12-8 WORDS 
XI = IDLE PSA ADDRESS 
LINK IDLE 


GET SYSTEM USER CODE 
AND SAVE FOR USE LATER 


PSA LENGTH - 1 
GET INFO FROM PROTOTYPE 
SAVE IT IN IDLE 
LOOP TIL DONE 

FORCE IDLE TO POINT TO ITSELF 

CHECK FOR EXTERNAL CHAINS THAT 
WERE NOT PLUGGED 
JUMP IF PLUGGED 


CD- 

Q< 

Q 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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o 

o 

o 

o 

o 

o 
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1320 

V 






1321 

V 

SEC TION 

TO ARRANGE THE PURE CODE LIST AND 




132 2 

132 3 

* ■" 

PARITY 

WORDS FOR THE ENDING BOUNDARIES 




T V V V T V V V T A* 

* * * * 

V T V V T T T T T T T T TV T T T T V T V V V TV T V V TV T V V T 




13 2 S : 




0 2 0 41 

1417 7 7 7 7 

X 

1326 


ENI 

PURELIST,XI 

0 20 42 

05100001 


1327 


ISG 

i,Xl 

02043 

01002124 

p 

132 8 


UJP 

PURE07 

0 2044 

17100001 


13.29 


AMI 

00001BjXI 

0 2 045 

02502077 

p 

133 0 


I JO 

PURERROR,XI 

0 2046 

14102041 

X 

1331 

PURE01 

ENI 

PURELIST,XI 

02047 

15177775 


1332 


INI 

-2,XI 

02050 

05100001 


1333 

PURE02 

ISG 

1, XI 

0 2 0 51 

01UU2074 

P 

jL -3 3 h 


UJP 

PURE04 

020 52 

25177777 

X 

.1335 


LDAQ 

PURETABL,X1 

0 2053 

45007721 

p 

133 6 


STAG 

TEMPI 

02054 

15177775 


1 o o> Y. 


INI 

-2, Xi 

0 2 0 55 

21102052 

X 

1338 


LOO 

PURETABL,XI 

0 2 0 56 

03602050 

p 

1339 


AQJ,GE 

PURE 02 

0 2 057 

2510 205 5 

X 

134 0 


LDAQ 

PURETABL,XI 

02060 

45007723 

p 

1341 


STAG 

TEMP2 

0 20 61 

25007721 

p 

13 4 t'f 


LDAQ 

TEMPI 

02062 

45102057 

X 

1343 


STAG 

PURETABL,XI 

0 2063 

25007723 

p 

1344 


LDAQ 

TEMPS 

0 2064 

1510 0 0 0.2 


1345 


INI 

. 2,XI. 

0 2 0 65 

45102062 
01002046 

X 

1346 


STAG 

PURETABL,XI 

0 20 66 

p 

1347 


UJP 

PURE 0.1 

0 2 067 

15177776 


1348 

PURE03 

INI 

- 1 , x i 

0 20 70 

25102065 

X 

1349 


LDAQ 

PURETABL,XI 

0 20 71 

15100001 


135 0 


INI 

1, XI 

02072 

1/677777 


X 1 


ANA 

777778 

02073 

03602077 

p 

.1352 


AQJfGE 

PURERROR 

02074 

25102070 

X 

1353 

PURE84 

LDAQ 

PURETABL,Xi 

0 20 75 

05500000 


1354 


QSG , S 

0 

0 20 76 

05202100 

p 

1355 


AZJ,GE 

¥ + 2 

0 2 0 7 7 

00002077 

p 

1356 

PURERROR 

HLT 


0 210 0 

17777777 


13 57. 


ANQ 

7 7 7 7 7 B 

0 2 i U 1 

05602077 

p 

1358 


AQJg 6 E 

PURERROR 

0 210 2 

15100002 


135 9 


INI 

2 * X i 

0 210 3 

03102046 

X 

1368 


ISG 

PURELIST,XI 

02104 

01002067 

p 

1361 


UJP 

PURE03 

02105 

14100000 


1362 


ENI 

0 ,X1 

02106 

25102074 

X 

13 6 3 

PUR 6.0 5 

LDAQ 

PURE!ABL,XI 

0 210 7 

17777777 


1364 


ANQ 

777778 

0 2110 

44002115 

p 

1365 


SNA 

PURE08 .. 

0 21:11 

16677777 


1 .3 6 6 


XOA 

777778, 

0 2112 

53 04 0 0 0 0 


1367 


AQA 


0 2113 

5 3 6 0 0 0 Q 0 


1363 


TAI 

X2 

02114 

14600000 


1369 


ENA 

. .. 0. 

0 2115 

36203000 


1370 

PURE06 

SGA 

IMPURE,X2 

02116 

0 2602113 

p 

1.371 


I JO 

PURE06,X2 

02117 

41007721 

p 

1372 


STQ ' 

TEMPI. 

02120 

40407721 

p 

137 3 


STA , I 

TEMPI 

02121 

15100002 


1374 


INI 

2, XI 

02122 

05102103 

X 

1375 


ISG 

PURELIST,XI 

02123 
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OlOOOUOO 



1643+012 

DAY 

UJP 

41007673 

P 


1648+013 


ST Q 

18000016 



1648+014 


SHAQ 

17600017 



1648+015 


ANA 

53600000 



1648+016 


TAI 

20007673 

P 


1648+017 


LDA 

12077772 



1.6 4 8 + 018 


SHA 

17600037 



■ 1648+019 


ANA 

02602550 

P 


1648+020 


I JO 

23436320 

P 

07464 0 

1648+021 

DA YU 1 

LQGH 

15577776 



1.64 8 + 02 2 


INQ »S 

53040000 



1648+023 


A Q A 

02602545 

P 


1648+024 

DAY 02 

I JO 

53600000 



1648+&25 


'TAI 

20007673 

P 


1648+026 


LDA 

12077761 



1648+027 


SHA 

17600177 



1648+028 


ANA 

53640000 



i648+029 


IAI 

12077775 



1648 + 0 30 


SHA 

5 324 Li 0 0 U 



1648+031 


AIA 

13077747 



1648+332 


SHAQ 

51007730 

P 


1648+033 


OVA 

13000030 



1648+034 


SHAQ 

010 U 25 34 

P 


1648+035 


■ UJP 


’ « * # ¥ ^ * * J 


* 
*5?' 

* 

» *?r -v, “vr “V *?• "»* tT* ‘ir -v- •%* v -Sr -?• -v* -V* -v~ ■v > -v- *¥* Ar "V* *J* ^ “V* *Sr "If '?? -t£ ■¥ •¥• tt ■?£ •■¥* 


IMPURE 
DATEWORD 
24-10 
178 
X 2 

DATEWORD 

"6 

37B 

O A Y 0 2, X 2 
MONTHS,X2 

—1 

D AY 01,X 2 
X2 

OATEWORD 

-5-5-4 

177 B 
X 2 
-2 

X2 
- 24 
07 
24 
DAY 


USE AS A TEMP 

THROW AWAY HOUR ANO DAY OF MONTH 

AND LEAVE ONLY THE MONTH BITS 

FOR LOOPING 

GET THE DATE AGAIN 

THROW AWAY THE HOUR 

MASK TO JUST THE DAY 

START THE COUNTING LOOP 

NUMBER OF DAYS IN THE MONTH 

SACK UP 1 

ADD TOGETHER INTO TOTAL 

CONTINUE LOOPING UNTIL DONE 

NUMBER OF DAYS THIS YEAR TO X2 

GET THE DATE AGAIN 

GET ONLY THE YEAR 

TAKE NO CHANCES ON CRAP 

ADO 1 DAY FOR EACH YEAR PAST 1900 

NUMBER OF LEAP YEARS SINCE 1900 

AND ADD TO TOTAL 

DOWN TO Q 

TAKE MOO 7 

ANO UP TO A FOR EXITING 
RETURN TO CALLER 


U1000000 




1649 

ADJUST 

UJP 

IMPURE 

27007463 

P 



165 0 


LDL 

lea pens 

05400001 




1651 


ASGtS 

i ... ■ 

15600001 




165 2 


INA 

i 

15600035 




i 65 3 


IN A 

29 

42036321 

P 

074 6 4 

1 

i 6 5 4 


SACH 

MONTHS+1 

13000016 




16) 5 5 

AQJ.USTX 

SHAQ 

14 

53500000 




165 6 


TAI 

XI 

13000005 




165 7 


SHAQ 

5 

53600000 




1658 


TAI 

X 2 

17100017 




1659 


AN I 

17B ,X1 

17200037 




1660 


AN! 

378,X2 

13000035 




1661 


SHAQ 

29 

04200000 




1662 


ISE 

0 , X2 

010 0 2 fa 14 

P 



1663 


UJP 

AOJQ2 

22436316 

P 

0 7453 

2 

165 4 


LACH 

MONTHS-2,XI 

16477777 




1665 

AD JO 1 

XOAVS 

-0 

53240000 




1666 


AIA 

X 2 

15600041 




166 7 


INA 

1-2+5+1 

17576037 




1668 


ANQ , S 

- (378*2+5) 

12000005 




1669 


SHA 

5 

53040000 




167 0 


AQA 


13 0 0.0 0 30 




1671 


SHAQ 

24 

01002572 

P 



167 2 


UJP 

ADJUSTX 

05100015 




167 3 

AD JO 2 

ISG 

13, XI 

010 026 2 0 

P 



1674 


UJP 

* + 3 

15710000 




1675 


INQ 

100008 


LEAP YEAR 

STORE NUMBER OF DAYS+1 IN FEB 
MONTH TO XI 
DAY TO X2 


SUBTRACT OUT THE DAYS IN THIS 
MONTH LEAVING THE DAYS IN NEXT 
MONTH ADD 1 MONTH + 1 DAY 
CLEAR THE DAY FIELD 
SHIFT INTO DAY POSITION 









CD 
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INITIAL 


0 

mi 

010 0,2572 
224obll? 

P 

P 

07463 3 



UJp 

LACH 

m^¥-u 


02621 

44002622 

P 


167 3 


SNA 

*+l 


D 2622 

05200000 



1679 


ISG 

IMPURE,X2 

c% 

1)2623 

01002625 

P 


168 0 


UJP 

AO J 03 

'yjr 

02624 

01002604 

P 


1631 


UJP 

AOJOi 


02625 

27007462 

P 


1632 

ADJ03 

LOL 

H0UR8IT3 

o 

0 2626 

05600030 



1683 


ASG 

24 

0 2627 

01002564 

P 


1684 


UJP 

ADJUST 

0 2630 

15700010 



1685 


i n a 

. 1UB 


02631 

01002572 

P 


16 8 o 


UJP 

ADJUSTX 


02632 

14600077 



1687 

NOTIHEX 

ENA 

7 70 

o 

0 26 33 

44002663 

P 


1686 


SWA 

CLFLAG 


0 2634 

P 


1669 

NOTIME 

EQU 

-v- 


02634 

53020037 



1690 


THA 

DATE 

0 

02635 

21007677 

P 


i 69 1 


L DO 

LBKDATE 

0 26 3 6 

03 7 (J 212 6 

P 


1692 


A 0 J -I L I 

UREPEAT 

0 26 37 

53010037 



1633 


TMQ 

DATE 


0 26 4 0 

00702564 

P 


1694 


RTJ 

ADJUST 


0 264-1 

53020037 



1695 


THA 

DATE 

o 

0 2642 

03502126 

P 


1696 


AQJ,ME 

□REPEAT 


0 2643 

5 3 0 2 0 0 3 7 



1697 


THA 

DATE 


0 2644 

13077765 



1698 


SHAG 

-10 


0 2645 

53600000 



1699 


TAX 

X2 

o 

0 2646 

17200017 



17 0 U 


AN1 

17S,X2 

0 264 7 

05200015 



1701 


ISG 

13,X2 


0 2650 

05200001 



1702 


ISG 

i,X2 


02651 

01002126 

P 


i 7 0 3 


UJP 

□REPEAT 

Q 

02652 

13000005 



17 Q 4 


SHAQ 

5 


0 2653 

17600037 



170 5 


ANA 

378 


0 2654 

03002126 

P 


1736 


ftZJ,EQ 

□REPEAT 


0 2655 

23436317 

P 

07463 3 

170 7 


LOCH 

MONTHS-i» 

o 

02656 

03602126 

P 


170 8 


AQJ,GE 

□REPEAT 


0 2657 

53020037 



1709 


THA 

DATE 


.0 2.660 

17600Q37 



1710 


ANA. 

378 


0 2661 

14700030 



1711 


EUQ 

24 

o 

0 2 662 

0360212b 

P 


1712 


AQJ,GE 

.□REPEAT/- 


0 2 6 6 3 

04000000 



1 713 ■ 

CLFLAG 

IS.E- 

IMPURE, 0 


0 26 64 

01002674 

P 


17.14 


UJP 

TMSET 

0 

02665 

5302003? 



1715 


THA 

DATE 

0 26 66 

21007700 

P 


1 /.i 6 


LDQ 

LOT 


0 266 7 

03702311 

P 


1717 


AQJtLT 

DCHK 


0 2670 

157UGQ40 



i 7.1 8 


INQ 

408 

o 

0 2671 

00702564 

p 


1719 


RTJ 

ADJUST 

0 26 72 

53026037 



1.72 0 


THA 

DATE: 

0 2673 

03602311 

P 


17 2 i 


AQJ,GE 

OCHK . 


0 2574 

53010037 



1722 

TMS'ET . 

TMQ / ' 

DATE 


0 2675 

00702534 

P 


1722+001 


RTJ 

OAY 

o 

0 267 5 

4407 7777 

X 


1722+002 


SNA 

.DATES.1 


0 2677 

53500000 



1722+003 


T AI 

Xi . 


0 2700 

2017777? 

X 


172 2+0 04 


...uJft . 

SGH0TAB,X 


02701 

40077777 

X 


1722+005 


■ STA 

DAYSCHO 

o 

0 27 0 2 

53010037 



1722+036 


TMQ 

.DATE 

0 2 7 0 3 

17 5 77 740. 



172 3 


ANQyS. 

7 77 4 OB 


0 2704 

15700040 



1724 


i:nql 

408 


0 2705 

00702564 

p 


1725 


RTJ 

ADJUST 

o 

02706 

41001151 

X 


1726 

1727 

1728 


ST Q 

TOMORROW 


0 2707 

.110 37 350 

p 

07672 0/ 


ECHA 

CRC-R 


0 2 710 

14700QQ4 



1729 


ENQ 

4 

o 

0 2711 

00707426 

p 


1730 


RTJ 

OUT 


o ! 


o 

o 


o 


0 

d> 

q 

a 

o 

o 

■ ■■.■is.:.'.- O 

o 

o 

o 

o 

COMPUTE DAY FOR TODAY 

INITIALIZE THE CURRENT SCHEDULE - ^ 

FIX UP T.OMMORROWS DATE. Q 

o 

o 

o 

o 

o 

o 


o 
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1733 

1734 

1735 

1737 

1738 


SECTION TO INITIALIZE THE I/O CHANNELS AND INTERRUPT PROCESSOR 


•v v ’r -v -v- v V r 


- v v v v r t v r '<■ t r w *r v v -** v v t v *v 


v -r A' v vv-v -^r J 


0271E 

77517377 

173 9 

IGCL 

7 37 78 

HIT THE DATA CHANNELS 

0 2 7.13 

77307777 

1740 

INS 

77778,0 

CLEAR 

THE INTERNAL FAULTS 

0 2714 

14000000 

1741 

NOP 

0 

AVOID 

THE SKIP 

0 2715 

77507377 

1742 

INCL 

73778 

CLEAR 

THE INTERNAL INTERRUPTS 

0 2716 

77537000 

1743 

SCIM 

70 0 08 

CLEAR 

FAULT AND SEARCH/MOVE BITS 

0 2 717 

77520777 

1744 

SSIH 

0 77 78 

SET FOR THE CLOCK AND I/O 

0 2720 

53430036 

1745 

TIN 

LEVEL, 0 

INITIALIZE THE INTERRUPT LEVEL 

0 2 721 

14600001 

1746 

ENA 

1 

IDLE 

IS THE ONLY USER 

02722 

53420035 

1747 

1748 ■■ 

.1749 

TAM 

NU 



02723 

7 7 6 0 0 4 U 0 

PADS 

04006 

SENSE 

FOR TYPEWRITER BUSY 

0 2 724 

01002723 P 

175 0 

UJP 

*.-l 

WAIT 

FOR IT 

0 2 725 

14302727 P 

1751 

ENI 

*"+2' § X3 

START 

THE CHANNEL OVER TINE 

0 2726 

01077777 X 

.175 2 

UJP 

CHCHECK 

CHECKING 


o 
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0 2727 
0 2730 
0 2731 
02732 
0 2733 
02734 
0 2 735 
0 2736 
02737 
02740 
0 2741 
0 2 742 
0 2743 
02744 
02745 
0 2 7h6 
02747 
02750 
02751 

02752 
0 2753 
0 275 4 
0 2 755 
02756 
0 2757 
02760 
02761 
02762 
0 2 763 
0 2764 
0 2 7 6 5. 
0 2 766 
02767 
0 2 770 


INITIAL 


20007501 

P 

175 5 

175 6 
1757 

1759 

17 6 0 
1751 

r V V V V Y V V *Y V* -V" Y Y V* Y Y Y V 

Y 

f SECTION 

^ v v v v v v v v -v v v v v r v v 

LOA 

v v v •'»* v v v v v *r v v 'r 

TO WRITE THE 

’r v v v v v v v t v v t -r 

EHOBLOCK 

V V Y V V V Y V Y Y Y Y Y Y *Y V VY Y V Y Y Y V Y Y Y Y Y Y Y Y Y *Y Y Y Y Y v Y Y 

Y 

TERMINATION ROUTINE OUT ONTO MASS STORAGE * 

» * 

*r v -v v v v v -r v -v- t -r v v t v v v t tt v -f *!r J r v v -r v v ^ v if t v ■t v t v ^ -v 

14777777 

X 

176 2 

E N Q 

ENC0S3 

18 BIT CORE ADDRESS 

14277777 

X 

1763 

ENI 

WRITE,X2 


14104000 


1764 

£NI 

40000,XI 

LENGTH TO WRITE 

00707372 

P ■ 

1765 

RTJ 

. HSIO 

WRITE OUT THE END ROUTINE 

25000062 

X 

176 6 

LOAQ 

8LCCKTBL 

LDQ 8L0CKT8L+1 

20007501 

p 

176 7 

LOA 

ENDBLOCK 


44077777 

X 

1766 

SWA 

ENDREAO 

SAVE FOR THE SYSTEM END ROUTINE 

03602751 

p 

1769 

A Q J lj c. 

ENOIA 

JUMP IF END8L0CK NOT ON DEVICE 0D 

31002734 

X 

177 0 

SB A 

BL0CKT8L 

CONVERT RELATIVE TO DEVICE 00 

03302751 

p 

1771 

AZ0,LT 

ENDIA 

JUMP IF NOT ON ANY DEVICE 

13077747 


1772 

SHAQ 

"24 

SHIFT FOR THE DIVIDE 

51007/75 

p 

177 3 

OVA 

FBPCOE V, 0 

DIVIDE BY FILE BLOCKS/CYLINDER 

12400017 


1774 

3H 3 

15 

MERGE THE CYLINDER AND SECTOR 

13000014 


1775 

SHAQ 

12 

CREATE THE DISK ADDRESS 

44 003753 


1776 

SWA 

ENOREAOA 

SAVE FOR MANUAL DUMPING 

12077760 


1777 

SHA 

-15 

CHECK FOR A 15 BIT ADDRESS 

04600000 


1778 

ASE 

0 

SKIP IF OK 

000U2751 

p 

177 9 
1780. 
1781 

ENOIA HIT 

* 

CANNOT HANDLE. END ROUTINE 

25002740 

X 

LOAQ 

8L0CKTBL 

LDQ BLQCKTBL+1 

20007505 

p 

173 2 

LOA 

MSFBLOCK 

IS THE USER DISK PACK ROUTINE 

03602763 

p 

1783 

■ AQ J ,&E 

MSFPANIC 

ON MS 0 0 

31002752 

X 

1784 

SBA 

8L0CKTBL 


03302763 

p 

1785 

AZJjLT 

MSFPANIC 

BEFORE THE START OF MSGS 

20007505 

p 

1786 

LOA 

MSFBLOCK ■ 

SAVE THE FILE BLOCK NUMBER FOR 

44077777 

X 

1787 

SWA 

MSPLOAD 

OPMSG 

12 0 77/60 


178 8 

SHA 

-15 

CHECK FOR 15 BIT ADDRESS 

0 4 60 00 0 0 
00002763 

p 

1789 

179 0 

. . . ■ ASE ' 

ilSFPANIC HIT 

:: Q 

* 


20 0 0 7505 

p 

1791 

LOA 

MSFSLOCK - 


14777777 

X 

179.2 

, ENQ.. 

. MSFMOUMT - .... 


14 2 0 2 7 3.1 

X 

1793 

ENI 

WRITE,X2 


14101000 

00707372 

p 

1794 

1795 

ENI 

RTJ 

tOOOB,Xi 

MS 10 

WRITE THE ROUTTIME OUT 


0 

O 


O 

o 

o 

o 




J 


o 

o 

o 


o 


o 

o 

o 

C) 

o 

o 

o 

o 


o 





a 
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* 
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n 




1798 

V 





T 

VJL 




1799 

V 

SECTION 

TO READ IN THE 

SUBSTITUTION BLOCK AND CREATE THE * 





180 0 

V 

SUBSTITUTION LIST FROM 

IT 


0 




180 1 

31* 











V -«* V T V T V V 

V 

v r v r V r V -v -i“ r •*«*• v v 

-r v v 

v v v v v v r "v* v v v t -v v -<r v v v -r t t v r t v v r t -r v v t -r v v rv .■ 




1803 

1804 







0 

0 2 7 71 

14704000 


18 0 5 


ENQ 


CORE 


ENTER THE BUFFER ADDRESS 

U 2 772 

14277777 

X 

18 0 6 


E MI 


READ,X2 


INDICATE A READ 

0 2773 

14101000 


160 7 


EMI 


NPFBjXl 


PROCESS A FILE BLOCK 


02 7 74 

20007507 

P 

1808 


LOA 


MXSBLOCK 



O 

0 2775 

00707372 

P 

18 09 


RTJ 


MS 10 


CALL SYSTEM MASS STORAGE DRIVER 

0 27 76 

14100777 


1810 


ENI 


WPFQ-i,XI 



0 2 7 77 

15177776 


1811 

MX SLOOP 

INI 


-1, XI 




0 3 0 0 0 

2 510 4 0 ii 0 


1812 


LDAQ 


CORE,XI 


LOAD THE SUBSTITUTION WORDS 

O 

03001 

06577777 


1813 


QSG t S 


7 77 770 


SKIP IF LEGAL 

a Jou 2 

00003002 

P 

1814 


HLT 




MXSBLQCK IS GARBAGE 

0 3 0 l! 3 

05400000 


18 15 


ASGjS 


0 


SKIP IF LEGAL 


0 3 0 0 4 

00003004 

P 

1816 


HLT 




MXSBLQCK IS GARBAGE 


0 30 05 

03003015 

P 

1817 


AZJ.EQ 


MXSLOOPX 



O 

0 3 0 36 

14300002 


1818 


ENI 


2 j X 3 



0 3 0 0 7 

00702007 

X 

1819 


RTJ 


GETMEM 




0 3 010 

25104000 


.182 0 


LDAQ 


COR£» XI 



O 

0 31311 

45300001 


1821 


ST AQ 


i«X3 



03012 

20077777 

X 

1822 


LOA 


MXSLIST 



0 J 013 

47303012 

V 

A 

1 8 2 5 


STI 


MXSLIST » X3 




0 3 014 

40300000 


1824 


STA 


0 , X 3 



7 O 

0 30 15 

02502777 

P 

1825 

1826 
1827 

MXSLOOPX 

I JO 


MXS LOOP » XI 


'' 4 v i ' ■ 






-I* 4r 4” t* 44 4 s * -#■ 5?' 4“ 4* 4*' 

3$ J§. 3$ 3$ 2$, Ig, 

v 4r 4~ 4* 

^ ^ 3f, itf. fir if. if. if. 2£. 4 L 4 * *4r 4*- "f" 4* 4* ^ 4*' *$?• 4^ -v rr 4*- 





1829 

4^ 





* 

0 




183 0 

•V' 

SECTION 

TO UPDATE THE 

DATE 

AND TIME WORDS IN THE SECURITY * 





1331 


BLOCK AND 

TO SET THE SYSTEM 

RUNNING BIT * 





1832 

^ . , ■ 





V 





1834 

1835 

' tH* ^ ’TT -?P» TT If* Tf* V 

4* tF "sr '«&■%(• ^ 

*¥* 4r 4? 4r nr 4f *v* "5r -v* 



0 











03 016 

200U 7517 

P 

18 36 


LOA 


SECURITY 



0 

a 3017 

14704000 


1837 


ENQ ' 


CORE 



0 3020 

141010 01] 


183 8 


ENT 


WPFB f Xi 


\ 

0 3 021 

14202772 

X 

1839 


ENI 


READ 9 X 2 : 




0 3 0 2 2 

00707372 

p : 

1840 


RTJ 


MSIO 


READ IN THE SECURITY BLOCK 


0 3023 

53020037 


18 41 


IMA 


DATE 


UPDATE THE TIME ANC OATE 

l': ;; 0 

03024 

6 3 01 01! 2 2 


1842 


TMQ 


CLOCK 



03025 

45U04802 


1843 


STAG 


CORE+2 




0 30 2 6 

146 00 04 0 


1344 


ENA 


08340B ' ■ 


SET THE SYSTEM RUNNING BIT 

0 

0 3 0 27 

35004000 


1845 


SSA 


CORE 4-0 



0 303 0 

401104000 


1846 


STA ■ 


CORE+ 0 



0 3031 

2000751 7 

p 

18’ 7 


LOA 


SECURITY 




03032 

14704000 


1848 


ENQ 


CORE ■ 




0 3 0 3 3 

14101000 


. 1849 


ENI 


MPFB.X1 



0 

0 3034 

14202766 

X 

185 3 


ENI 


HRITE»X2 



U 3 0 3 5 

00707372 

p ■. 

. . 18 51 


RTJ 


MS IQ 


WRITE THE SECURITY BLOCK SACK OUT 



o 


o 

o 

o 

o 

o 

o 
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185 4 

V 



V 




1855 


SECTION 

TO CHECK. THE 

ACCOUNTING FILE AND FIND THE END OF IT * 




1856 




-Sr 





t v v v v "V 'r 

v v v -v v V -sr v v v 

V V V V 'r V V v 'i- V v v 

v v v v v v v v '»• v v ^ v -/• v v v A* nr v v -r v -r -v v ^ ^ t -!?■ -y v y v -r -r v t 




1858 

1859 





03036 

14477777 


I86 0 


ENA,S 

777770 

1ST BACKWARD POINTER SHOULD BE -Q 

0 3037 

40007720 

P 

18 61 


S FA 

BACKPTR 


Cl o j 4 0 

2 0 0 0 74 71 

P 

1862 


LDA 

ACCBLOCK 


0 3041 

40077777 

X 

1863 

ACCQ1 

ST A 

ACCWORDS 


U 3 0 4 2 

14101000 


■1864 


ENI 

WPFBjXl 

READ IN A FILE BLOCK 

U 3 U 4 3 

14203021 

X 

1865 


ENI 

READ } X2 


0 3 0 4 4 

14704000 


1866 


fcNQ 

CORE 


0 3 045 

00707372 

p 

1867 


RTJ 

MSI 0 


U 3 0 4 6 

20004001 


1868 


LDA 

C ORE + i 

LOAD THE BACKWARD POINTER 

G o 0 4 7 

36007720 

p 

18 6 9 


SG A 

BACKPTR 

COMPARE WITH WHAT IT SHOULD BE 

0 o G 5 0 

05600001 


1870 


ASG 

1 

SKIP IF NOT EQUAL 

03051 

04400000 


1871 


ASEjS 

0 

SKIP IF OK 

0 3 0 3 2 

0 G 0 0 3 0 5 2 

p 

1872 


HLT 

* 

INCGNSISTANT FILE BLOCK POINTERS 

03053 

20003041 

X 

1873 


LDA 

AGO WORDS 

LOAD THE CURRENT BLOCK NUMBER 

03054 

40007720 

p 

1874 


STA 

BACKPTR 

WHICH SHOULD BE THE NEXT BACKPTR 

03055 

14100000 


1875 


ENI 

0 » X1 


03056 

20104002 


187 6 

AGCO 2 

LDA 

CORE+2 » XI 


03057 

03303071 

p 

1877 


AZJ *LT 

AGC03 


0 3060 

04400017 


187 8 


ASE »S 

15 . 


0 3 061 

00003061 

p 

1879 


HLT 


ACCOUNTING FILE SYNC ERROR 

0 3 0 62 

15100021 


1880 


INI 

17, XI 


0 3053 

0510 0 776 


1881 


ISG 

WPFB-2,Xi 


0 3 0 64 

01003056 

p 

188 2 


UJP 

ACC02 


0 3 0 65 

20004000 


1883 


LDA 

GORE 


03066 

21000101 

X 

18-84 


LOG 

LIBLAD 

LOAD LAST LIBRARY ADDRESS 

0 30 67 

Q 360 3041 

p 

1885 


A 0 f G E 

ACC 01 

JUMP If OK 

0 3 070 

00003070 

p 

1886 


HLT 

%■ 

ACCOUNTING FILE GOES INTO LIBRARY 

030 71 

12 0 0 0 G 0 1 


1887 

AGCO 3 

SHA 

i 


0 30 72 

04400001 


1.88 8 


A SE»S 

i 

SKIP IF A GENUINE FILE MARK 

0 3 0 7 3 

00003073 

p 

188.9 


HLT 


ACCOUNTING FILE SYNC ERROR 

0 30 74 

53100000 


189 0 


IIA 

XI 


0 30 /5 

21003053 

X 

1891 


LOU 

ACCWORDS 


0 3 0 76 

13000030 


1892 


SHAQ 

24 


0 3 077 

45003075 

X 

1893 


STAG 

ACCWGROS 


0 310 0 

20004000 


1894 


L 0 A 

GORE 

LOAD THE LAST FORWARD POINTER 

0 3101 

05400000 


1895 


ASG»S 

0 ■ 

SKIP IF POSITIVE 

03102 

04477777 


1896 


ASE ; ,S ■ 

777778 

SKIP IF 77777777 

0 310 3 

.00003103 

p 

189 7 
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IMPROPERLY ENDED ACCOUNTING FILE 


0 ) 

CD 
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1900 

■v* 



■^r 

vji? 





1901 

V 

SECTION 

TO START WORRYING 

ABOUT THE DISK TABLES AND * 






1902 

.. * ■■■■. 

ALLOCATE 

THE BIT ARRAY IN 

STATE 1 * 

0 

3 




1903 

V V V V V V V *V~ "i* 

v -v v v v -r v v v 
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* 
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19 0 5 
1906 






O 

0 310 4 

1467 7 7 7 7 

X 

19 0 7 


ENA 

DISKPNT 

COMPUTE THE ADDRESS OF 

0 

i) 310 5 

15601200 

X 

190 8 


INA 

HSUNITS 

DISKPNT+HSUNITS AND SAVE IT 



0 v> 10 5 

44 i..J 0 b 1 1 b 

p 

19 0 9 


S vi A 

DISKPNT B 




0 3107 

14377777 

X 

1910 


ENI 

MSUNITH1,X3 


O 

O 


03110 

p 

1911 

OlSKPNTA 

EQU 

V 



0 3110 

2U301203 

X 

1912 


LOA 

ARRAYT8L,X3 

IS THE DEVICE ON LINE 


0 3111 

03303117 

p 

1913 


AZJjLT 

DISKPNTC 

JUMP IF MOT 



0 3112 

20302755 

X 

p 

1914 


LDA 

BLOCKTBL,X3 

LOAD THE LOAD POINT BLOCK 

O 

O 

03113 

30007473 

1915 


ADA 

ARRAY 

RELOCATE TO THE ARRAY BLOCK 


0 3114 

40303104 

X 

1916 


STA 

DISKPNT,X3 

RELOCATE TO THE 4 BLOCK LIST 


03115 

15600001 


1917 


INA 

1 



0 3 1 i 6 

4 0 3 0 0 0 0 0 


1918 

OISKPNT3 

STA 

IMPURE , X3 



o 

03117 

02703110 

p 

1919 
192 0 

OISKPNTG 

I JO 

DISKPNTA,X3 

LOOP THRU ALL THE UNITS 


0 312 0 

20000244 

p 

1921 


LDA 

HFSN 

GET THE HIGHEST FILE BLOCK NO, 



0 3121 

15o0 0 0 27 


1922 


INA 

23 


O 

o 

03122 

13077747 


1923 


SHAQ 

-24 


0 3123 

5100/732 

p 

1924 


OVA 

D24 



0 3124 

44 0 0 3143 

p 

1925 


3 M A 

MAXADO 

SAVE FOR THE CHECKS 



0 3125 

14200000 


192 6 


ENI 

Q , X2 


O 

o 

0 3126 

.141016 63 

X 

19 27 


ENI 

NUM P AGES , X1 

SEARCH PAGE TABLE LOOKING FOR 



0 312 7 

p 

1923 

FINPAGE 

EQU 


PAGES WE ARE NOT USING 


0 3127 

14600000 


1929 


ENA 

0 




0 3130 

14577777 


193 0 


ENQ »S 

777 77B 


0 

o 

0 3131 

06101713 

X 

19 31 


MEQ 

PAGET ABL*i 



03132 

■0U0 0 33.32 

p 

1.9 3 2 


HLT 




0 313 3 

20007734 

p 

1933 


LOA 

SYSCON ■ 

SET THE PAGE. TO. SYSTEM 



0 3134 

40103131 

v 

■ A ■■■■ 

1.9.34: 


STA 

PAGETABL,XI 



o 

0 3135 

53100000 


1 9 3 5 


TIA 

XI 

SET THE PAGE FILE 

O 

Q 3138 

12 a U 0 0 0 2 


1936 


SHA 

2 




03137 

7 76 4 •> 0 2 0 


1937 


APF 

2 0 B + PF W •» X2 




0 3140 

15200001 


1938 


INI 

1, X2 


O 

o 

0 3141 

5320000Q 


1939 


TIA 

X2 

HAVE WE ALLOCATED ENOUGH CORE 

0 3142 

120Q0413 


194 0 


SHA 

li 




03143 

0 5 6 Q 0 0 0 0 


1991 

H.AXAOO. 

AS 6. 

IMPURE 

SKIP IF ENOUGH 



03144 

0100312? 

P 

1942 


UJP 

FINPAGE 



o 

0 314 5 

14600001 


■194 3 


ens: : ■:■■■: 

1 


O 

0 3146 

7 76 b 0 li !i 0 


1944:. 


■ ■ AO'S: ■ :' : 





0 3147 

14600?74 


.19 4 5 


ENA : 4 

7748 

SET THE REST OF THE STATE 



0 3150 

4 ? 2 O 1 3 lob 

P 

1946 


STI . 

3 J.1SETEO , X2 

NON-EXISTANT 

0 

o 

0 3151 

77644020 


194 7 


APF 

20B+PFW,X2 



0 3152 

10200017 


1948 


IS I 

178,X2 




0 315 3 

01003151 

P 

1949 


UJP 

*-2 ' 



o 




.195 0 
1951.. 




ASSUME.NO SWITCH ONE 

O 

03154 

21004615 

P 

i 9 5 2 


LUQ 

SSA0X1 


03155 

20 0 0 7710 

p 

195 3 


LOA 

SJ1FLAG 



o 

03156 

03 0 0 3165 

Q 

1954 
195 b 


AZJ,E'Q 

SOIJUMP 

JUMP If REALLY OFF 

O 


03157 

p 

195 6 

1 L i . 1 3 1 

EQU 

•V 



0 3157 

14477776 


1957 


ENA t S 

-1 

THERE SEEMS.TO.BE TROUBLE ON THE 



0 31 & 0 

440 0 46 0 3 

P 

1958 


S W A 

FRBLKENA 

DISKS SO REGENERATE THE DISK. 

O 

o 

0 3161 

44007710 

P 

196 9 


SNA 

SJ1FLAG 

TURN ON SJ1 

03162 

14477777 


i96 0 


ENA f S 

7777 76 

TABLES JUST TO BE ON THE SAFE 


0 3163 

44003172 

Q 

& 

1981 


SWA 

FILLENA 

SIDE 



0 316 4 

21004616 

P 

1962 


L. Lj C 

LPA 0X1 

SAY TO CLEAR BITS 

O 

o 


03165 

P 

196 3 

SJ1JUMP 

EQU 



03165 

41004606 

P 

1964 

1965 


STQ 

FRBLKLOG 





0 3166 

14600000 


196 6 

3J1SETED 

ENA 

IMPURE 



o 

0 316 7 

12000013 


1967 


SHA 

11 

FORM THE CORE ADDRESS 

O 

0 317 0 

15477776 


1968 


INA ,S 

- 1 




0 3171 

53600000 


1969 


T AI 

X2 




03172 

14400000 


197 0 

FILLENA 

ENAfS 

IMPURE 


0 

o 

0 3173 

5540 00 0 0 


1971 


ROS 


FILL THE ARRAY 

i 03174 

40200 00 0 


1972 


STA 

0 , X 2 

' 

0 3175 

02603174 

P 

197 3 


IJO 

*-l,X2 



o 

0 3176 

55000000 


1974 


RIS 



0 

o 









0 
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0 32 U 0 

20U0 771 a 
03103302 

P 

P 

197 6 

197 7 


LDA 

A Z J , N £ 

S J1 IE L A G 

R h G £ N 

SHOULD WE ASSUMETHEDISK TABLES 
ARE GOOD JUMP IF NOT 




197 8 
1979 
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1981 




'' * 




1982 


SECTION 

TO GENERATE THE BIT 

ARRAY IN STATE ONE IF * 




1983 

V 1 

THE DISK 

TABLES ARE ASSUMED 

TO QE GOOD * 




1984 









V V V V V V V V V 
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1986 

198 7 





0 3201 

14303107 

X 

1983 


ENI 

MSUNITMi»X3 



0 3202 

P 

1989 

RESTAR02 

EQU 



0 32 02 

20303114 

X 

1990 


LDA 

OISKPNT *X3 

IS THE DEVICE ON LINE 

0 3203 

03303267 

p 

1991 


A 2 J , L r 

RESTARi2 


0 32 04 

14577777 


1992 


ENU , S 

777770 

SET THE FIRST BACKWARD POINTER 


0 3205 

p 

199 3 

RESTAR04 

EQU 

4 s - 


03205 

45007636 

p 

1994 


STAQ 

C.U.RBLOCK 

SAVE THE POINTERS 

0 3206 

14100100 


199 5 


ENI 

64, Xi 

READ 64 WORDS 

0 3207 

14203043 

X 

1996 


ENI / 

READ , X 2 


03210 

14704300 


1997 


ENQ 

CORE 


0 3211 

00707372 

p 

1998 


RTJ 

MSIO 


03212 

20 0,040 0 0 


1999 


LDA 

CORE 

CHECK THE FORWARD POINTER 

03213 

04477777 


2600 


ASE»S 

777778 


03214 

0 3 30 315 7 

p 

2 0 01 


AZJ,LT 

SETSJl 

RE GENERATE THE TABLES IF GARBAGE 

0 3215 

20004001 


2 0 02 


LDA, , 

GORE+i 

CHECK THE BACKWARD POINTER 

03216 . 

21007637 

p 

2003 


LDQ 

BAGKPNI 


0 3217 

03503157 

p 

2004 


AQJjNE 

SfcT S «Ji 

YESTERDAY WAS A GOOD DAY 

0 3220 

13000001 


2 0 0 5 


SHAG 

.A . 


0 3221 

03503157 

p 

2006 


AQJ,NE 

SETSJ1 

I WONDER IF ANYONE DID ANYTHING 

03222 

14100077 


2 U 0 7 


ENI 

6*5 ? Xi 


0 3223 

20104000 


2003 


LDA 

CORE,XI 

LOAD A BLOCK NUMBER 

03224 

03003230 

p 

2 G 0 9 


A L J f E Q 

* + 4 

L ERCFS SHOULD BE OK 

0 3225 

04100001 


2 010 


ISE 

. .1 f X i 

DONXT FREE THE BACKWARD POINTER 

03226 

0 0 7 04-572 

p 

2 011 


..RTJ.--'. 

FRBLK 

FREE THE BLOCK 

03227 

03403157 

p 

2012 


A Q J , E Q 

SETSJl : 

PANIC IF TROUBLE 

0 3230 

02503223 

p 

2013 


IJD 

^.-5 * Xi 


0 32 31 

21Q07636 

p 

2014 


LDQ 

.CUR a LOCK .. 

LOAD THE CURRENT BLOCK NUMBER. 

03232 

20004000 


2 015 


LDA 

GORE 

LOAD THE NEXT SLOCK NUMBER 

0 3233 

03103205 

p 

2016 

2 017 


A2J * NE 

..RESTAK04 

LOOP BACK IF THERE IS MORE 

0 32 34 

20403116 

p 

2 018 


LDA * I 

DXSKPNT8 *X3* 

LOAD START OF THE FOUR BLOCK LIST 

0 3235 

14577777 


2 019 


ETiQ * S 

777778 

SET THE FIRST BACKWARD POINTER 


0 3236 

p 

2 02 0 

REST ARQ.6 

EQU 



03236 

45007636 

p 

2 0 21 


STAG 

CUR8L0CK 

SAVE THE POINTERS 

03237 

14100100 


2022 


ENI ... 

64, XI 

READ 64 WORDS 

0 3240 

14203207 

V 

2023 


ENI 

READ«X2 


0 3 24.1 

14704300 


20-24 


E N-Q 

CORE - 


03242 

00707372 

p 

2025 


RTJ 

H SIG 


03243 

2 U 0 Q 4 0 01 


2 0 26 


LOA 

GORE*! 

CHECK THE BACKWARD POINTER 

03244 

21007637 

p 

2027 


LDQ 

BACKPNT 


0 3245 

03503157 

p 

2028 


AQJ,NE 

SETSJl 


0 3246 

13000001 


2 029 


SHAQ 

1 ' 


0 3247 

03503157 

p 

2080 . 


AQJ »NE 

SETSJl 


0 3250 

14100077 


20 31 


ENI 

83,XI 



03251 

p 

203-2 

RE'S TARO 8 

EQU 

if 


0 3251 

14200003 


2333 


ENI 

3 , X2 

FREE 4 BLOCKS FOR EACH ADDRESS 

03252 

20104000 


2 0 34 


LOA 

CORE,XI 


0 3 253 

03003263 

p 

2035 


A Z J j EQ 

RESTARIC 

IGNORE ZERO ADDRESSES 

0 3254 

04100001 


2036 


ISE 

1,X1 

SKIP IF THE BACKWARD POINTER 

03255 

01003257 

p 

2037 


UJP 

if+ 2 


0 3256 

01003263 

p 

2038 


UJP 

REST AR10 


0 325 7 

20104000 


2 0 39 


LDA 

CORE , XI 

LOAD THE BLOCK NUMBER 

03260 

53240000 


2 04 0 


AIA 

X2 

ADD THE PROPER BIAS 

0 3261 

00704617 

p 

2041 


RTJ 

ROACH 


03262 

02603257 

p 

2042 


IJQ 

*-3,X2 

LOOP 3 TIMES 

03263 

02503251 

p 

2043 

-RESTARID 

IJD 

REST AR08, XI 


0 32 64 

21007636 

p 

2 0 4 4 


LDQ 

CUR8L0CK 

LOAD THE CURRENT BLOCK NUMBER 

0 3265 

2 0 0 U 4 0 U 0 


2045 


LDA 

CORE 

LOAD THE FORWARD POINTER 

0 32 66 

.0310 3236 

p 

2 0 46 

2 047 


AZJ t NE 

RES TAR 06 

AND LOOP BACK IF THERE IS MORE 

0 3267 

02703202 

p - 

2 04 8 

RESTAR 12 

I JO 

RES T AR 0 2 ,X3 

LOOP THRU ALL THE MASS STORAGE 

0 3270 

20 0 0 772 7 

p 

2 04 9 


LDA 

SECWO.RO 

WAS THE SYSTEM ENDED PROPERLY 

0 3 271 

03005107 

p 

2 05 0 


AZJ,EQ 

GLERCH 

LAST TIME 

0 3272 

21004616 

F 

2051 


LDQ 

L PA 0X1 

CLEAR BITS WHEN FRBLK IS CALLED 

03273 

41004606 

P 

2 0 52 


STQ 

FR8LKL0G 


0 3274 

47004624 

P 

2 0 53 


STI 

ROACHXX ,0 

DONT ALLOW ROACH TO PANIC 

0 3275 

14600001 


2 05 4 


ENA 

1 

REMEMBER THAT WE ARE JUST LOOKING 
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03276" 

440 U 3 4 7 3 

P 

2 0 5 5 

SWA, 

HSFTX03X , 

AT BUSY FILES 

0 3 2 7 7 

11024254 

P 05053 0 

20 56 

EC HA 

BCMSG 


0 3300 

14 7 0 0 0 62 


2 05 7 

ENQ 

BCNSGL 


0 3301 

0 0 70 74 2 o 

p 1 . 

2 0 58 

RTJ 

OUT 

TELL THE OPERATOR 
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2065 

2 0 66 





0 3 3 0 2 

P 


2067 

•R £ G £ N 

EQU 


0 33U2 

14611000 



2 068 


ENA 

ACCESS 

U 3 3 J 3 

12077764 



2 0 6 9 


SHA 

-11 

0 3 3 a 4 

53600000 



2 0 7 0 


T AI 

X2 

03305 

776540 0 0 



2 071 


PFA 

PFR,X2 

03306 

046.0 0 7 74 



2072 


AS E 

07748 

0 3307 

00003307 

P 


2 0 7 3 


hl r 


0 3310 

53200000 



2 0 74 


11A 

X 2 

0 3 311 

12000002 



2 075 


SHA 

2 

0 3312 

77644000 



2076 


APF 

PFW»X2 

03313 

20203134 

X 


20 7 7 


LDA 

PAGETABL j X2 

13 3314 

0 440 0 U .0 0 



2 0 76 


ASE 5 S 

... 0.. 

0 3 315 

00003315 

P. 


2 0 7 9 


HLT 

& 

0 3 316 

20007734 

P 


2 0 8 0 


LDA 

SYSCON 

0 3317 

40203313 

X 


2 0 81 


ST A 

PAGETA8L*X2 

0 3 320 

141001.14 

X 


2082 


ENI 

FQELNTH,XI 

0 3321 

16177777 



2 0 -B 3 


KOI 

** Q f X i 

03322 

15111001 



208 4 


INI 

HX8UFFER+WPFB+l,Xi 

0 3323 

4710 35 32 

p 


2085 


STI 

F DM AX » XI■ 

0 33 24 

54103473 

F 


2. 0 8 b 


LOI 

MSFIXfl 3X». XI 

03325 

025 0 34 5 0 

p . 


2 08 7 


I JO 

MSFlXOltX.1 

03326 

ii0 2 43 36 

p 

0 5 0 67 "2 

2.0 88 


ECHA 

RGMSG 

03327 

14700030 



2 089 


E UQ 

■ RGMSGL : 

0 3330 

00 707426 

p 


2090 


RTJ 

OUT 

0 3331 

20007714 

p 


2 091 


LDA 

SJ5FLAG 

03332 

. 0310 3 33 6 

p 


2 092 


A Z J « N E 

+ 4 

03333 

110 3 7 6 50 

p 

07672 0 

2093 


tGH A 

GRCR 

0 j 0 o ^ 

1,4 /QUO l j 2 



2094 


ENG 

.2 . . 

0 3 J 3 5 

01003340 

P 


2 095 


UJP ■ 

■■ . ^ 4*3 " ■ 

0 3 336 

I. .1 il d. 4 3 6 o 

p 

05075 2 

2096 


ECHA ; 

, FGMS& 

0 3 3 3 7 

14 7 0 0 0.4 % 



2 097 


:ENQ- 

FCMSGL 

0 3 3 4 0 

0 0# 0 74 26 

P 


2 Q 9 a 


RTJ 

:O.UT ■ 7 7 J-' 

0 3341 

14103201 

X 


2099 


ENI • 

■ MSUNITMl,Xl 


(j J* 3 4 2 

P 


210 8 

MSK02 

EQU, 

-7 . 

0 3342 

2 01U 5110 

X 


2 iiil 


LDA ; 

ARRAYTBL? XI 

0 33 43 

0320334/ 

p 


2.1.02 


AZJ f,Gt 

* + 4 ■ 

0 3 3 h 4 

20103112 

X 


2103 


LDA' ' 

. BL0CKT8L j XI 

U3 345 

00704572 

p 


218 4 


RTJ 

. 7FRBLK ■'■:-■•'■ 

0 3346 

01003416 

p 


21 0 5 


UJP ■. 

. :MSZAPJ3%' 

0 3 347 

20103344 

•y. 


2106 


LOA 

BL.QCKT8L > XI 

0 3350 

14704000. 



210 7 


ENG • 

GORE 

0 3 35.1 

14203240 

X 


210 8 


ENI 

READ,X2 

03352 

471033 bb 

p 


210 9 


C* v -f 

1 X 

* + 3 , XI 

0 336 3 

14.10 010 0 



2110 


ENI 

LABEL * XI 

0 3354 

Q0707372 

.: P 


2111 


RTJ - 

' ■ MSIO 

03355 

14100000 



211 2 


ENI 

IMPURE,XI 

03356 

54 3 0 400 4 



21.13 \ 


LDI 

CORE+MSLPFBN,X3 

U 3 3 5 7 

02 70 336.1 

P 


2114 


I JO 

. *+2,X3 7 . 

0 3360 

00003360 

P 


2115 


HLT 

* 

03361 

14600000 



2116 ■ 


ENA 

O '. ■ 

O j o O 2 

30004002 



2117 

• MS ZAP 02 

A OA¬ 

CORE+MSLLFBN 

0 33 & 3 

40004G02 



2118 


ST A 

CORE+MSLLFBN 

0 33 64 

00704572 

P 


2119 


R T J 

■ FRBLK 7 

0 3 3 b 5 

14600001 



212 8 


ENA 

. 1 

03366 

02703362 

P 


2121 


I JO 

H S Z A P 0 2, X 3 

0 3 367 

20007477 

P 


2122 


LDA 

BAOTRAX . 7 7 

0 3370 

30103347 

X 


212 3 


ADA 

SLOCKTBL,Xl 

0 3371 

14704000 



2124 


ENQ 

CORE 

03372 

14203351 

X 


2125 


ENI 

READ,X2 

03373 

47103376 

p 


212 6 


STI 

*+3,Xl 

0 33 74 

14101000 



2127 


ENI 

WPFB,Xi 

0 33 75 

0 0 7 0 7 3 7 2 

p 


2128 


RTJ 

MSIO 

0 3 376 

14100Q0 0 



2129 


ENI 

IMPURE,XI 

0o^77 

14301000 



213 ti 


ENI 

W P F B , X 3 

0 3400 

01003414 

p 


2131 


UJP 

HSZAP03Z 

0 3401 

34304000 



2132 

MSZAP03 

RAD 

CORE , X3 

0 3402 

20304001 



213 3 

MS ZAP 03X 

LDA 

CORE+1,X3 

0 3403 

03003414 

p 


2134 


AZJrEQ 

MSZAP03Z 

03404 

15477776 



2135 


INALS 

-1 

0 3405 

40304001 



213 6 


STA 

CORE+1,X3 

03406 

25103370 

X 


2 j. 3 7 


LOAQ . 

BLGCKTBL,XI 

0 34 07 

3Q3040U0 



213 8 


ADA 

CORE ,X3 


* At v v -r v v "A v v Ar v V' v V v v r v t y At r -v- Ar 'A V T T A* 


SET UP THE PAGE FILE FOR 
REFERENCING THE FILE BLOCKS 
PAGE NUMBER TO X2 
ARE THE ADDRESSES BEING USED 


PAGE .NUMBER BACK TO A 
FORM 1/4 PAGE NUMBER 

IS THE PAGE BEING USED 
SKIP If NOT 

SET PAGE TABLE TO SAY HE ARE 
ARE USING THE PAGE 
ENTER WORDS PER FQ ENTRY 


STORE WPF8-F0ELNTH+1 

ARE WE JUST CHECKING BUSY FILES 

JUMP If SO 

TELL THE OPERATOR THAT WE 
ARE RECREATING'THE DISK TABLES 

IS SJ5 ON 

JUMP IF SJ5 IS SET 


SAY WE ARE CHECKING THE FILE 
STRUCTURES ALSO 

NUMBER OF' UNITS - 1* 

IS THE UNIT ON LINE 

LOAD THE LOAD POINT BLOCK ON THE 
MISSING DEVICE AND FREE IT 

LOAD THE LABEL ADDRESS 

AND READ THE LABEL 
SALT INDEX XI 
SHIER THE WORD COUNT 

RESTORE INDEX Xi 
LOAD COUNT OF PROJECTED BLOCKS 
JUMP IF SOME PROTECTED BLOCKS 
THE LABEL HAS TO BE PROTECTED 

GET THE CURRENT FILE BLOCK NUMBER 

FREE THE BLOCK 

LOOP TIL DONE WITH PROT STUFF 
READ IN THE LIST OF BAD TRACKS 

FOR EACH DEVICE 


•U *!4 -U 
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0 3410 

03603414 

P 

213 9 


AQJ,GE 

MSZAP03Z 

0 3 411 

013 70 4572 

P 

214 0 


RTJ 

FRBLK 

U 3 4 i 2 

14600001 


2141 


ENA 

1 

0 3413 

01003401 

P 

214 2 


UJP 

MSZAP03 

0 3414 

10700000 


2143 

HSZAP 0 3Z 

ISO 

0 i X 3 

0 34.15 

02703402 

P 

214 4 


IJD 

MSZAP03X,X3 

0 3416 

02503342 

P 

214 5 

MSZAP 04 

I JO 

MSK 02iXI 




214 6 




03417 

5430010b 

X 

2147 


LDI 

FDLENGTH,X3 

03420 

01003424 

P 

2143 


UJP 

^ + 4 

0 3421 

53300000 


2149 


TIA 

X3 

03422 

30000105 

X 

215 0 


ADA 

FILEOIR 

0 3423 

00704572 

p 

2151 


RTJ 

FRBLK 

0 3424 

02703421 

p 

2152 


IJD 

*-3 ,X3 

0 3425 

54300120 

X 

215 3 


LDI 

UOLENGTH,X3 

0 3426 

01003432 

p 

215 4 


UJP 

* + 9 

0 3427 

53 3 0 0 0 0 0 


2155 


TIA 

Xvi 

0 3 4 3 0 

30000117 

X 

2156 


ADA 

USERDIR 

0 3 431 

00704572 

p 

2157 


R.TJ 

FRBLK 

0 3.43 2 

.02703427 

p 

2158 


IJD 

7-3,X3 

13 3.4 3 3 

20007471 

p 

2159 


LDA 

ACCBLOCK 




216 0 





03434 

p 

2161 

MSACC 01 

EQU 

* '.A:./ 

03434 

40007656 

p 

2162 


STA . 

POINT 

0 3435 

14200001 


2163 


ENI 

1, X 2 

0 3436 

00704572 

p 

2164 


RTJ 

FR8LK 

0 3437 

20007656 

H 

2165 


LOA 

POINT 

0 344 0 

14707716 

P 

2166 


ENQ 

FREE8UFF 

03441 

14203372 

X 

2167 


ENI 

RE A D , X 2 

0 34 4 2 

14100002 


2168 


ENI 

2,XI 

0 3 4 4 3 

00707372 

p 

2169 


RTJ 

MSIO 

0 3444 

20 GO 7716 

p 

2170 


LOA 

FREEBUFF 

0 3445 

03103434 

p 

2171 


AZJ,NE 

MSACC01 

03446 

04677777 


2172 


A SE 

777778 

0 3 447 

00003447 

p 

'2173 


HLI.... 



LOOP TILL DONE KITH ALL DISKS 

GET THE LENGTH OF THE FILE 
DIRECTORY 


FREE ALL SLOCKS THAT THE FILE 

DIRECTORY OCCUPIES 

GET THE LENGTH OF THE USER 

DIRECTORY 


FREE ALL THE BLOCKS THAT THE 
USER DIRECTORY OCCUPIES 
GET THE FIRST BLOCK OF THE 
ACCOUNTING FILE 

SAVE THE BLOCK NUMBER 

FREE THE BLOCK 

LOAD THE BLOCK NUMBER AGAIN 


READ TWO WORDS 

LOAD THE FORWARD POINTER 
LOOP BACK IF NOT THE END 
ONE LAST CHECK 
IT WAS OK BEFORE 
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CP 




2175 

21 7b 


MACRO 

NAME 

«JM: EGAL 





217 7 


LOU 

LI8LAU 





2178 


AGJ,GE 

“- + 5 

o 




2179 


AZ J , EQ 

* + 2 




2130 


RTJ 

FDERROR 





2131 


AZJ ,GE 

-1 ....'. 





2132 


RTJ 

SILLEGAL 

n 




2183 


END 




0 34 50 

P 

2184 

2185 

2186 

MSFIX01 

EQU 

■v 

O 

0 345 0 

11177777 

37777 3 

2137 


ECHA 

1777778 

03451 

40007655 

P 

2183 


STA 

MAXGAP 


0.345 2. 

14603526 

P 

218 9 


ENA 

MSFIX04 


0 3453 

44003507 

P 

219 U 


SWA 

FILEOONE 

o 

LI 3454 

14600000 


2191 


hN A 

0 . 

0 3455 

4u[IQ773 3 

P 

2192 

MSFIX02 

STA 

MSOIRBLK 


03455 

14710000 


2193 


EN.Q 

MXBUFFER 

o 

03457 

30003422 

X 

2194 


ADA 

FILEOIR 

03400 

14203441 

X 

2195 


ENI 

READ , X2 

0 3461 

14101000 


2196 


ENI 

WPFB » XI 


0 346 2 

00707372 

P 

219 7 


RTJ. 

MSIO 


0 346 3 

77730000 


2198 


VFD 

A12/DINT 

o 

03464 

14110000 


2199 


ENI 

MXBUFFER»X 


(J 3466 

P 

2200 

MSFIX03 

£ Q tl 

-v- 


0 3 4 6 5 

25177777 

X 

2201 


LDAQ 

FDSYM,XI 


G 3466 

03003527 

p - 

2202 " 


A .2 J t E Q 

MSFIX04X 

o 

0 3467 

47103526 

p 

>! 2 0 6 


SIX 

MSF 1X1)4,Xi 


Q 3 4 7 0 

20177777 

X 

Z 204 


LDA 

FOGDATE tXl 


0 3471 

03303514 

p 

2205 


AZJ, LT 

MSFXNA 

o 

03472 

2017777? 

X 

2206 


.LDA 

FOBUSY,XI 

0 3 47 3 

04 0 Q 0 0 0 0 


220 7 

MSFIX03X 

ISE 

IMPURE,0 

03474 

03003514 

p 

22 0 8 


A 2 f t Q 

MSFXNA 


0 347 5 

14604714 

p 

2209 


ENA 

MSERRGR 


0 3476 

44007360 

p 

22.1 0 


SWA. 

IR ■ ■ ■ 4' 

o 

0 3477 

20177777 

X 

2211 


LDA 

FOE.PP , XI 


0 35 0 0 

12077760 


2212 


SHA 

-15. 


0 3501 

17600017 


2213 


ANA:i. V.. 

.: WTMA.SK.-. 


03502 

1470 GO 1? 


2214 


ENQ 

■HTMASK 

o 

0 35 0 3 

14100004 


2215 


ENI 

HTL.NTH t XI 

0 3504 

0 o 2 0 7 4 5 6 


2216 


MEQ 

H T L13 T » 2 


..0 35.0.5. 

00 7 04671 

p. 

2217 


RTJ 

FOERROR 


0 35 06 

01507457 

p ■. 

2218 


UJP, I 

H T L, IS T +1 , X: 

0 

0 35 07 

o i o os a o o 


: 2.219. 
■222 0 
2221 

FILEOONE 

UJP 

IMPURE. 

o 

03510 

2ui77777 

X 

2 2 Z ? 
2223 

FZL 

L U A 

fDIP,XI 


0 35 11 

0 al0obl3 

p 

22.24 


AZJ,NE 

* + 2 


0 3512 

Clo.30 do 1.4 

P....... . ..... 

2.225 


AZJ$LT . 

MSFXNA 


0 3513 

00704702 

P ■ 

22 26 


RTJ 

ERROR. . 

o 

0 35.14 

201U3472 

X 

222 7 

MSFXNA 

LDA 

FOBUSY,XI 

0 3515 

0640 0Q 00 


2 22 5 


ASG,S 

Q ' ■ 


0 3516 

00704671 

P : . 

2 22 9 


RTJ 

FOERROR 

o 

0 3517 

03003507 

P 

223 0 


AZJ,EQ 

FILEOONE . 

0 3-52 0 

47003534 

P 

2231 


SII 

FDWFLAG,0 

0 3521 

14600000 


2232 


ENA 

0 


03522 

40103514 

X 

2233 


STA 

FOBUSY,XI 


0 3523 

20007644 

P 

2 234 


LOA 

BIT21 

o 

03524 

35103470 

X 

2235 


SSA 

FOCDATE,XI 


03525 

40103524 

X 

2236 


STA 

FDCGATE,XI 


0 3526 

14100000 


223 7 

MSFIX 04 

ENI 

IMPURE,XI 

o 

03527 

15103320 

X 

223 8 

MSFIXQ4X 

INI 

FOElNTH,XI 

035 3 0 

14607353 

p 

2239 


ENA 

SMASH 

0 3531 

44007360 

p 

2240 


SWA 

IR 


03532 

05100000 


2241 

f UMAX 

ISG 

IMPURE,XI 


0 3533 

U1003465 

p 

2242 


UJP 

MSFIX03 

o 

0 35 34 

0400000.1 


2243 

FDWFLAG 

ISE 

1 +IMPURE, 0 

0 35 35 

01003545 

p 

2 244 


UJP 

FOWX 


0 3536 

14710000 


2 245 


E N Q 

MXBUFFER 


0 35 37 

20007703 

p 

2246 


LDA 

MSOIRBLK 

° 

1)35 4 0 

30003457 

X 

2247 


ADA 

FILEOIR 

0 35 41 

14203034 

X 

224 8 


ENI 

WRITE,X2 


0 3542 

1410 10 0 0. 


2249 


EMI 

WPFB, XI 


0 3543 

4 710 3 5 3 4 

p 

2250 


STI 

FDWFLAG,XI 

o 

U 3 5 4 4 

00707372 

p 

225.1 


RTJ 

MSI Q 


0354 5 

p 

2252 

FOWX 

EQU 

-Y- 


0 35 45 

20007703 

p 

2253 


LOA 

MSOIRBLK 

o 









LOAD LAST LIBRARY ADDRESS 
JUMP IF NOT IN THE LIBRARY 
ZERO IS BAD 

3UT NOT AS BAD AS NON-ZERO 
+0 IS VERY BAD 
-0 IS JUST BAD 


SET MAX WORD COUNT FOR SEQUENTIAL 
FILES 

SET THE RETURN ADDRESS 

FOR CHECKOUT COMPLETION 
START WITH THE OTH FD BLOCK 
SAVE THE RELATIVE FD BLOCK NUMBER 
READ IT INTO MXBUFFER 
FORM THE REAL BLOCK NUMBER 


READ IN THE FILE BLOCK 


LOAD THE FILE NAME 

ZERO INDICATES A VACANT POSITION 

SAVE THE FO BLOCK POSITION 

LOAD THE LAST CHANGE DATE WORD 

JUMP IF FILE IS UNAVAILABLE 

IS THE FILE SUSY 

SKIP IF LOOKING AT ALL FILES 

JUMP IF NOT BUSY 

RECOVER FROM MASS STORAGE ERRORS 


ILLEGAL HT IN FILE DIRECTORY 


WHERE TO GO WHEN FINISHED WITHEAC 


FOR ZERO LENGTH FILES, THE LOAD 
POINT BLOCK SHOULD BE 7777777? 
JUMP IF IT IS 

LOAD THE BUSY COUNTER 

WHICH SHOULD NOT BE NEGATIVE 

GOOD GRIEF CHARLIE BROWN, IT WAS 

JUMP IF HOT BUSY- 

SET THE FD BLOCK CHANGE FLAG 

AND SET THE F03USY WORD TO ZERO 

LOAD THE BACKUP REQUEST BIT 
AND SET IT INTO THE FOODATE WORD 


IRRECOVERABLE MASS STORAGE ERRORS 
ARE NOT ACCEPTABLE AT THIS POINT 
IMPURE = MXBUFFER+W.PFB-FOELNTH + i 

SKIP IF THE CURRENT FD BLOCK HAS 

BEEN CHANGED AND NEEDS TO BE 

REWRITTEN ONTO THE DISKS 

LOAD THE RELATIVE FD BLOCK NUMBER 

CONVERT TO ABSOLUTE BLOCK NUMBER 

AND WRITE IT OUT 

ENTER THE WORD COUNT 

CLEAR THE FD CHANGE FLAG 

CALL THE MASS STORAGE DRIVER 
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0 35 46 

15600001 


2 2 5 4 

I HA 

1 

0 3547 

210 0 341 7 

X 

225 5 

LQQ 

FDLENGTH 

0 3 650 

03703455 

p 

2 25 6 
225 7 
2258 

AQJ ,LT 

HSFIX02 

0 3551 

1460 0 0 .12 


2259 

ENA 

GFDELNTH 

0 3 652 

04603527 

X . ' ... .. 

2 26 0 

A. S E ■ ■ 

FDELNTH 

0 6 5 3 

00003553 

p 

2261 

HLT 


0 3 5 54 

1460 7 745 

p 

2262 

ENA 

FKFO 

03555 

44003526 

p 

226 3 

SWA 

MSFIX04 

0 35 56 

14603657 

p. . . 

226.4. 

ENA 

RETBFCHK 

03557 

44003507 

p ' 

2 26 5 

SWA 

FILEOONE 

0 35 6 0 

20007513 

p 

2266 

LDA 

SAVEBBLK 

0 3 5 & 1 

00706710 

p 

: 2 2 o 7 

RTJ 

SETBUP 

0 3562 

14600050 


2 2 h 8 

ENA 

4 0 

0 3 6 6 3 

4 0 0 G 7 6 5 5 

p 

2 2 6 9 

STA 

MAXGAP 

0 356 4 

44006547 

p 

2 27 0 

S W A 

CHKCHK2 

0 3565 

14107745 

p 

2271 

ENI 

FKFO,XI 

0 3 666 

14600001 


2 2 7 2 

ENA 

HIFILE 

03567 

12000017 


2273 

SHA 

15 

, 03570 

40103477 

X 

2274 

STA 

FOEPP,XI 

0 3571 

25007521 

p 

22 75 

LOAD 

ACCOUNT 

0 3572 

45177777 

X 

2276 

STAG 

FDACC »Xi 

U 35 7 3 

14100002 


227? 

NWBQUE ENI 

2, Xi 

0 3574 

14307734 

P 

2278 

EMI 

TEMPCTLB-i» 

0 35 75 

00706522 

P 

2 27 9 

RTJ 

GSAVEBUF 

0 35 76 

0.10 0 6 7 0 t) 

P 

228 U 

UJP 

BATCHDN 

03577 

20007735 

P 

2281 

LDA 

TEMPCTLB 

03600 

03003677 

P 

2 28 2 

A2J,EQ 

POSON 

0 3601 

14100002 


2283 

CWRITES ENI 

. 2! f X l :: 

0 3 6 0 2 

00706603 

P 

2284 

RTJ 

FILEIT 

03603 

14107745 

P 

2 2 8 5 

EMI 

FKFO,XI 

U 360 4 

25007735 

P 

2 2 8 8 

LDAQ ■ 

TEMPCTLB 

0 3&05 

04000000 


2287 

REST 00 ISE 

IMPURE,0 

0 3 6 0 6 , 

01Q03614 

P 

228 8 

UJP . 

DEVREST 

0 3607 

13077771 


2239 

SHAQ 

-6 

0 3610 

20007774 

P 

229 a 

LDA 

SNA ME 

03611 

13 0 0 0 O'0 6 


2291 

SHAQ- 

& 

0 3612 

40103465 

X 

2292 

. STA 

FOSYH,Xi 

0 3613 

01Q03620 

p 

2 29 3 

UJP 

REST Oi 

03614 

4 0 10 3 o i 2 

X 

2294 

DEVREST STA 

FDSYM,Xi 

0 3615 

13 0 0 0011' 


2 295 

SHAQ 

9. 

0 3 616 

17600777 


2296 

ANA . 

7778 

03617 

40007655 

p 

229 7 

STA 

HAX'GAP 


03620 

P : 

2298 ' 

REST01 EQU 

• *£■ ' 

03620 

1470000Q 


2299 

END'- 

O 

03621 

15 10 0 0 0 i 


2.3 GO 

INI 

1 , .xi 

0,3622 

41 i 0 3 6 i, 4 

XI ' 

23G1 

STQ 

fDSYM,Xi 

0 3623 

54207736 

p 

2302 

LOI 

TEMPCTLB+1, 

0 3624 

01003672 

p 

: 230 3 

UJP ■ 

8 CHKLPEN 

03625 

1410U007 


2 3 2 4 

8 CHKLP 6 G 041 

IMPURE+7,XI 

0 3626 

14307734 

p ■ 

2 30.5 

ENI 

TEHPCI LB- I, 

0 3627 

00708522 

p .. 

23116 

RTJ 

SSAVEBUF 

0 3 63 0 

00003633 

’rv , 

i . 

236 7 

HLT 

r '■ 

0 3631 

20407760 

P 

2 3 0 8 

LDA,1.. 

INDTFL 

03632 

03003667 

P 

230 9 

AZJ,EQ 

REWRIT 

03633 

141 0 7 7 4 h 

p 

2310 

ENI 

FKFO,XI 

0 36 34 

401777 7 7 

V 

A 

2311 

STA 

fOTFL,XI 

0 3635 

20407761 

P 

p 31 2 

EGA* I 

’ INOFLP 

0 36 36 

40103510 

X 

2313 

STA: 

FDIP,XI 

03637 

14600000 


2 314 

ENA 

0 

03640 

40103522 

X 

2315 

STA 

FOBUSY,XI 

03641 

40103525 

X 

2316 

. STA : 

FDCDATE,XI 

0 3642 

15100001 


c. O x S ■ • 

2 318 

INI 

1, XI 

0 364 3 

20103622 

X 

2319 

LDA 

FDS YM»X 1 

0 3644 

3 U U U 7 7 5 7 

p 

2320 

ADA 

KONST 

0 3645 

40007721 

p 

2321 ■ 

STA 

TEMPI 

0 364 6 

37077777 

X 

2322 

LPA 

BLANKS 

0 364 7 

40007723 

p 

2323 

STA 

TEMP2 

0 365 0 

12000025 


2324 

SHA 

21 

0 3651 

30007723 

p 

2 32 5 

ADA 

TEMP2 

0 3652 

16477777 


2326 

X O A , S 

777778 

0 365 3 

30007721 

p , 

2327 

ADA 

TEMPI 

0 3654 

4 010 364 3 

V 

j\ 

2 328 

STA 

FOSYM,XI 


2 329 

03655 47203657 P 2330 5TI BLPSVX2,X2 

03656 01004267 P 2331 UJP FILE 

03657 P 2332 RETBFCHK EQU * 


ADVANCE TO THE NEXT BLOCK 
LOAD THE FILE DIRECTORY LENGTH 


SEE IF INITIAL AGREES KITH 

ACTUAL FOE LENGTH 

NOPE 

ADDRESS OF FAKE FILE DIRECTORY 

STICK IN CHECK ROUTINE 

ADDRESS TO RETURN AFTER CHECK 

ADDRESS IN JUMP INSTRUCTION 

ADDRESS OF BATCH SAVE BLOCK 

GO INITILIZE READ AND WRITE ROUT. 

SAY THAT BATCH RECORDS CANNOT BE 

GREATER THAN 40 WORDS 

SAY NOT TO FREE FIRST BLOCK 

ADDRESS OF FAKE FILE DIRECTORY 

GET FILE HARDWARE TYPE 

MOVE HARDWARE TYPE TO POSITION 

SAVE THE HARDWARE TYPE 

GET SYSTEM JOB NUMBER 

PUT IN FAKE FILE DIRECTORY 

SAY 2 WORDS OF HEADER INFORMATION 

WHERE TO PUT THEM 

GO GET THE WORDS 

HE ARE DONE HERE - GOODBYE 

GET FIRST WORD RETURNED 

POSSIBLE DONE, CHECK FOR NEGITIVE 

2 WORD RECORDS 

WRITE OUT HEADER INFORMATION 

ADDRESS OF DIRECTORY FAKE 

GET WORDS RETURNED 

SKIP IF BATCH RESTORATION 

DEVICE RESTORATION 

MOVE TO Q FOR A SEC. 

GET NAME FOR BATCH GROUP 

NUMBER BACK WITH NAME 

PUT NAME INTO FAKE FILE DIRECTORY 

CONTINUE 

SAVE NAMF 

SKOOT RECORD LENGTH OVER TO A 

fFNGTH omlv 

SAVE FOR CHECKING 


SAVE S Y MB 

GL 

OH MAP 



ZERO INIT 

IAL 

E M TRY 

CO 

UNTER 

GET COUNT 

OF 

ELEME1 

T S 

IN GROUP 

GO TO END 

Of 

LOOP 



SAY HOW M 

ANY 

WORDS 

OF 

INFO 

WHERE TO 

PUT 

THE 7 

OR 

" 2 WORDS 

GG GET 7 

OR 

2 HORO 

BLOCK 


FILE TROUBLE 

GET PARTICULAR LENGTH 

JUMP SINCE DUMMY ENTRY 

GET FAKE FILE DIRECTORY POINTER 

SAVE LENGTH FOR CHECKING ROUTINE 

GET FILE LOAD POINT 

SAVE IN FAKE F.D. FOR CHECK 

CLEAR BUSY STATUS 

ZERO POSSIBLE BIT 23 IN DATE WORD 

SAVE SYMBOL ON MAP 

GET CURRENT ELEMENT BCD COUNT ' 

INCRIHENT IT 


SAVE UPDATED COUNT 

SAVE X2 SO WONT BE HIT 
GO CHECK OUT FILE 
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0 3 ft 5 7 

14200000 


2333 

BLP3VX2 

ENI 

IMPURE,X2 
FKFOjXl 

03660 

141U 7 745 

H 

23 34 


EWl 

0 3661 

20103640 

X 

2335 


L DA 

FDSUSY,X1 

0 3662 

03103674 

P 

2 33 6 


AZJ:,NE 

B08TCH 

0 3 6 6 3 

20103641 

X 

2337 


LDA 

FOCQATE»XI 

0 3664 

03303b74 

p 

2336 


A Z 3 , L T 

BD3TCH 

0 366b 

20103634 

X 

2339 


LUA 

FOTFL,XI 

0 3666 

4 0 4 0 7 76 0 

p 

2340 


S T A ,1 

INDTFL 

03667 

14307734 

p 

2 341 

REWRIT 

EMI 

T EMPCTLB—1,X3 

0 36 7 0 

54103625 

p 

2 34 2 


LDI 

BCHKLPBG,XI 

0 3671 

00706603 

p 

2 343. 


RTJ 

F.ILE IT 

0 3672 

02603625 

p 

2 344 

BCHKL PEN 

I JO 

BCHKLPBG,X2 

0 3673 

01003573 

p 

234 5 


UJP 

NWBQUE 

0 36 74 

146 0 00 0 0 


2346 

3Q8TGH 

ena 

0 

0 3675 

40407760 

p 

2 347 


3 T A, X 

INDTFL 

0 3676 

01003667 

p 

2 34 H 


UJP 

REWRIT 

03677 

03203601 

p 

234 9 

PGSDN 

AZJ , Gt 

C WRITES 

0 3 7 0 0 

00706660 

p 

2350 

8ATCH0N 

RTJ 

8 LGGKDN 

G37Q1 

04000000 


2351 

BCHKQN 

ise 

IMPURE,0 

U 37 02 

01003717 

p 

2 352 


UJP 

GALLON 

0 3 7 0 3 

14607735 

p 

2353 


ENA 

TEMPCTLB 

0 37 04 

44 0 0 7 761 

p 

2354 


SWA 

INOFLP 

0 3 7 0 5 

15600001 


2355 


IMA 

1 

0 3 7 06 

44007760 

p 

Slab 


SWA ' 

INDTFL 

O 3 7 0 7 

14600002 


2357 


ENA 

2 

0 3710 

44003625 

p 

235 6 


SWA 

BCHKLPBG 

0 3 711 

44003701 

p 

2 6 5 9 


SWA 

BCHKON 

03712 

4 40 0 3 60 5 

p 

2 360 


SWA 

REST 00 

0 3713 

44 0 0 65 47 

p 

2 361 

2 362 


SWA 

CHKCHK2 

0 3 714 

2000751.5 

p 

2 3 6 3 


LDA 

SAVEOELK 

0 3 715 

00706710 

p 

2 364 


RTJ 

SETBUP 

0 3716 

01003573 

p 

2365 


UJP 

-NWBQUE 


03717 

p 

2 366 

236 7 

2-36 a 

C A L L 0 

EQU 

9 

0 3717 

14 6113 0 0 


2 369 


ENA 

ACCESS. , 

0 3720 

i2 0 /?i 64 


23 7 0 


SHA . ’ 

- ii: " 

0 3721 

5360 0O0 0 


2.371 


'■.TATI ■■Mi-.: 

. X 2 

03722 

?7 b54 0 0 0 


237 2 


PFA 

' PFR,X2 

03723 

12077775 


2373 


SHA 

~2 

0 3 7 2 4 

5 3 5 0' 0 U 0 O' 


2 374 


TAX 

XI 

0 3725 

1460 GO 0 0 


2375 


ENA 

0 . 

03726 

4 U 1 ,D 3.3 1 ? 

X 

2376 

' ■ r ' 

■S-T-AtMvT 

PAGETABL,XI 

0 3727 

146 0 Q 7 74 


237 7 


ENA ' 

0 7740' 

0 3730 

77644000 


2 37 8 



PFW ,X2 ■ 7 


mim f2Se i ^3le directory 

SEE IF WAS SET BUSY 

BAD FILE SCRAP IT 

OR ABNORMAL 

8AO FILE HERE TOO 

GET NEW FILE DIRECTORY LENGTH 

PUT IN TEMP FILE CONTROL BLOCK 

WHERE TO WRITE FROM 

LENGTH TO WRITE 

WRITE OUT UPDATED BATCH INFO. 

DO ANOTHER ONE 

GO GET ANOTHER BATCH QUEUE 

SET FILE LENGTH TO ZERO 

GO WRITE UPDATED INFO 

NOT 77777777 SO NOT DONE 

WRITE OUT UNFILLED BLOCKS 

SKIP IF FIRST TIME THROUGH 

ALL DONE WITH WORK 

WHERE THE LOAD POINT WILL BE FOR 

DEVICES 

SAY WHERE THE FILE LENGTH WILL BE 

SAVE THE ELEMENT LENGTH 

FIX SO WONT BE BACK 

FIX SO WILL GET RECORD LENGTH 

SAY NOT TO FREE FIRST BLOCK 

ADDRESS OF DEVICE SAVE BLOCK 
INITILXZE I/O STUFF AGAIN 
GO GET FIRST DEVICE BLOCK 


SET PACE TABLE TO SAY WE ARE NOT 
USING THE ADDRESSES SPECIFIED BY 
ACCESS ANY MORE 

GET 1/A PAGE NUMBER WE ARE USING 
PAGE NUMBER TO XI 


RESET THE PAGE 
NON-EXISTANT 


FILE TO 




CD 
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2 361 

■ip 




Y 





2362 

V 









. 2383 

... 

SECTION TO SET ALL BLOCKS IN 

THE SUBSTITUTION LIST AS 

* 

3 




2334 

•y* 

BEING 

USED 


* 




2 38 5 

-V- 




■V 





2386 

-v- 




Y 






v v v v *ir v ir v 

-v- -v- rf- v 

•Y'-V'-np^r-\ t -Tp-Trv^^p-v- j ^‘'4p"p‘^p- : iP‘ J p'4* 2 (p^'^p‘V* 

V V r V V Y ^ Y ^ Y T Y Y Y Y Y Y V V *r V T Y ^JP V “V TP “TP "¥ "V ‘Y‘ 


O 

0 3731 

200 03013 

X 

2388 

2 38 9 

2 39 0 


LOA 

MXSLIST 

LOAD THE SUBSTITUTION LIST KORO 



0 3732 

01003752 

P 

2391 


UJP 

MSFIXQ7 

JUMP TO THE ENO OF THE LG0P 


o 


03733 

p 

2392 

MSFIX06 

EQU 


SET 4 BLOCKS BUSY IN CASE THIS 


a 3733 

14100003 


2393 


EMI 

3, XI 



0 8 7 S 4 

20300002 


2394 


LOA 

1+1»X3 

IS REALLY A PAGE 



0 3 735 

53140000 


2 395 


AIA 

Xi 



o 

U o 7 o o 

00704572 

P 

2398 


RTJ 

FR8LK 



1)3737 

02503734 

P 

2397 


I JO 

*-3,Xi 




03740 

2030QQ03 


2398 


LOA 

2 + i , X 3 

LOAD THE SUBSTITUTION SLOCK 



03741 

04477777 


2399 


ASE , S 

777778 

IGNORE -0 SLOCKS 


o 

0 3 742 

01003744 

P 

24 0 0 


UJP' 

+ + 2 



0 3743 

01003751 

P 

2481 


UJP 

HSFIX06X 




0 3744 

14100003 


2402 


ENI 

3,XI 

FREE A PAGE AS ABOVE 



0 3 745 

20300003 


240 3 


LOA 

2+1,X3 



0 

0 3 7 4 5 

53140000 


2404 


AIA 

XI 



0 3747 

00704572 

P 

2405 


. RTJ 

FRSLK 




03750 

02503745 

P 

240 6. . 


IJO 

+ - 3 -* X1 





0 3751 

P 

2407 

MSFTX 06X 

EQU 

-v- 

LOAD THE NEXT POINTER 


o 

0 3751 

20300001 


2408 


LOA 

0+1,X3 


03752 

53700000 


2409 

M3FIX07 

TAI 

X3 

PUT THE ADDRESS INTO X3 



0 375 3 

02703733 

P 

2410 


IJO 

HSFIX06 , X3 

JUMP IF THERE IS ANOTHER LINK 



03754 

01005107 

P 

2411 


UJP 

GLERCH 




o 


(I; 

G 

3 

O 

O 

o 

o 

o 

o 

o 


o 


o 


.o 


o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 


o 


o 
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'Jr , 




2 414 

V 




V 






2415 

*<r 




* 






2 416 

T 

THE FOLLOWING ERRORS SHOULD 

BE 

DETECTED BY THIS CODE * 


f* 




2417 

V 





Q 





2418 

■V 

BAD MAJOR 

ACCESS BLOCK NUMBER 

Y 





2419 

nr 

BAD MINOR 

ACCESS BLOCK NUMBER 

■1? 






24 2 0 

* 

BAD DATA 

BLOCK NUMBER 


* 


n 




2421 

V 

POINTERS 

ON DATA BLOCKS DO 

NOT 

MATCH MINOR BLOCK POINTERS * 

O 





2422 

■v* 

BAD FDEPP 



* 





2 42 3 


FORWARD / 

BACKWARD POINTERS 

ON 

DATA BLOCKS DO NOT AGREE * 






2424 

•v* 

FD8USY IS 

N E G A TIV E 


* 


O 




2425 


FDTFL IS 

NEGATIVE 



O 




2426 

■ nr 

FIRST DATA BLOCK BACK POINTER 

IS NOT -0 * 





2427 

* 

LAST DATA 

SLOCK FORWARD POINTER IS NOT -0 * 






2428 







0 




2429 

2 431 
243 2 

■¥- -7r V *r TT TT **f" 

V *V* T -V" -$• V -v -V- "JT 

-V 1 <V•Y i f^^-^YYY"YYY-Y'Y^Y 

■V- Y 

* 

v y -Sr -v 3?*- *r -v- -v- "V- y y t y y if ir ¥ y if v t v y y r t ■¥ ^ ■■¥ 

O 

o 


0 3 755 

P 

2 438 

RAF ; 

EQU 

- 


SECTION TO HANDLE A RAF 



0 3 7 5 5 

14600000 


2 4 3 4' 


ENA 

0 


SET CALCULATED LENGTH TO .ZERO 


Q 37.56 

40007652 

P 

2 435 


STA ■ 

FXTFL 




o 

03757 

54103526 

P 

2 4 3 6' 


L 01 

MSFIX04»X1 




03760 

20103665 

X 

2437 


LOA 

FDTFL,XI 



o 

0 3 76:1 

05400000 


2438 


A S G j S 

0 


FILE LENGTH SHOULD BE POSITIVE 


0 3 762 

00704671 

p 

2 4 8 9 


RTJ 

FDERROR 





03763 

03003510 

p 

2 44 0 


A Z J , E Q 

FZt 


JUMP IF ZERO LENGTH 


o 

0 3 7 84 

40007660 

p 

2 4 4 1 


STA 

LNTH 



o 

0 3 7 6 5 

20103661 

X 

2442 


LOA 

FDBUSY,X1 


LOAD THE BUSY COUNTER 


.03768 

05400000 


2 44 5 


ASG , S 

0 


SHOULD NOT BE NEGATIVE 



0 37 67 

00704671 

P 

2 4 4 9 


RTJ 

FOERROR 




o 

03770 

35 0 0 7714 

P 

2445 


SS A 

SJ5FLAG 


00 WE WANT TO CHECK ALL FILES 

o 

0 3771 

03104060 

P 

2446 


AZJ , NE 

RAFCHK 


EXAMINE THOROUGHLY IF IT KAS SUSY 


03772 

20103636 

X 

2447 


LOA 

FDLPrXl 





0 3773 

21 Q 0 3 0 6 6 

X 

2448 


LEGAL 

RXERROR 


CHECK THE MAJOR SLOCK ADDRESS 


o 

0 4 0 01 

00704617 

p 

2449 


RTJ 

ROACH 


FREE THE MAJOR ACCESS BLOCK 

: : ' O 


04002 

47004011 

p 

2453 


STI 

RAF 02,0: 




0 40 0 3 

20103772 

X 

2451 

RAF01 ' 

t BA 

FDLP,Xi 





0 4 0 0 4 

14711000 


2452 


ENQ 

ACCESS 




Q 

0 4 0 0 5 

14203460 

X 

2 45 3 


ENI 

RE AD , X2 



o 


040 06 

14101000 


2454 


ENI 

WPFB , XI 




04007 

00707372 

p 

2455 ■ 


RTJ 

HSIO 


READ IN THE MAJOR ACCESS BLOCK 



0 4010 

77730000 


2456 


VFD 

A12/DINT 




o 

0 4 011 

14100000 


2 4 5 7 

RAF02 

ENI 

IMPURE,XI 


ENTER POSITION IN MAJOR ACCESS BL 

o 

04012 

20007656 

p 

2 45 8 


LDA 

: POINT v ... : 


SAVE THE ADDRESS OF THE LAST DATA 


04013 

40 If 0 7 7 2 0 

p 

2459 


STA 

BACKPIR, 


BLOCK IN CASE ME TRUNCATE THE FIL 



0 4 014 

20111000 


2.4 6 0 


LOA 

ACCESS,XI ■ 




o 

04015 

21003773 

X 

2461 


LEGAL 

RXERROR 


CHECK THE MINOR ACCESS BLOCK 

o 

04023 

00704617 

p 

2462 


RTJ 

ROACH 


FREE THE MINOR ACCESS BLOCK 


0 4 024 

20007720 

p 

2463 


L.O A 

BACKPIR.. 


RESTORE THE ADDRESS OF THE LAST 



04025 

40007656 

p 

2964 


STA 

POINT 


CATA BLOCK 


o 

0 4 026 

20111000 


2465 


LDA 

ACCESS,XI 



o 

0 4 0.27 

15100001 


2:4 S 6 


INI 

i,Xl 





0 4 Q 3 0 

47104011 

p 

246 7 

■' .. .• : j'' .■■■■ ... .. '■ ' 

STI 

RAF 02,XI 




o 

0 4031 

14711000 


2468 


ENQ 

ACCESS 



; O 

0 4 0 32 

14204005 

X 

2469 


ENI 

READ,X2 



0 4033 

14101000 


247 0 


ENI 

WPFB,XI 




0 40 34 

00707372 

p 

2471 


■RTJ 

HSIO 


READ IN THE MINOR ACCESS BLOCK 


o 

0 4035 

7773 00 0 0 


2472 


VFO 

A12/DINT 



o 

0 4 0 36 

14300000 


247 3 


ENI 

0 , X3 



0 4037 

20311000 


247 4 

RAF 0 3 

LOA 

ACCESS,X3 




0 4040 

21004015 

X 

247 5 


LEGAL 

RXERROR 


CHECK THE DATA BLOCK 


o 

04046 

00704617 

p 

2476 


RTJ 

ROACH 


FREE THE DATA BLOCK 

o 

0 4 0 47 

20007652 

p 

247 7 


LDA 

FXTFL 


LOAD THE CALCULATED LENGTH 

0 40 5 0 

15600001 


247 8 


IMA 

1 


ASSUME LAST BLOCK WAS OK 


04051 

21007660 

p 

2479 


LOQ 

LNTH 


LOAD LENGTH FROM THE DIRECTORY 



04052 

03603507 

p 

2480 


A j J j G £ 

FILEOONE 


JUMP IF ENOUGH BLOCKS PROCESSED 


o 

0 4 053 

40007652 

p 

2431 


STA 

FXTFL 


REMEMBER THE CALCULATED LENGTH 

o 

0 4 0 5 4 

10300777 


248 2 


IS I 

W P F 8 - i » X 3 


IS THERE MORE IN THIS MINOR 


0 4 055 

Q10 0 4 0 3 ? 

p 

2483 


UJP 

RAF 0 3 


ACCESS BLOCK JUMP IF SO 



0 4 0 56 

54103526 

p 

2 48 4 


L 01 

HSFIX 04,X1 


LOAD THE CURRENT FD POSITIGN AND 


o 

04 057 

010 0 4 0 0 3 

p 

24 35 


UJP 

RAF01 


REREAD THE MAJOR ACCESS BLOCK 

o 

o 










0 

o 










o 
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04060 

47003534 

P 

'mi 

c. 4 o o 

RAFCHK 

EQU 

V 

l) 4 0 6 0 

P 

St i 

FDWFLAG,0 

G4UG1 

14600000 


2 46 9 


ENA 

0 

0 40 62 

40103765 

X 

249 0 


ST A 

FDBUSY , XI 

G 4 0 b 3 

14477777 


2 491 


E N A > S 

777778 

:J 4 0 6 4 

40007720 

P 

249 2 


S T A 

8ACKPTR 

0 40 65 

47004105 

P 

249 3 


STI 

RAF CKO 2,0 

0 40 66 

20104003 

X 

249 4 


LOA 

FDLP,XI 

0 40 67 

21004040 

X 

249 5 


LEGAL 

RXERROR 

0 4075 

00704617 

p 

2496 


RTJ 

ROACH 

0 40 76 

54103526 

p 

2 49 7 

RAFC.KQ1 

LDI 

MSFIX04 »X1 

0 4 077 

20104066 

X 

2498 


LOA 

FDLP,XI 

04100 

14711000 


2499 


ENG 

ACCESS 

0 410.1 

14204032 

X 

2500 


E HI 

READ,X2 

04102 

14101000 


25 01 


ENI 

W P F 8 , X1 

0 410 3 

00707372 

p 

2502 


RT J 

MS 10 

U 410 4 

14111000 


2503 


ENI 

ACCESS ,XI 

0 410 5 

20100000 


25 04 

RAFCK02 

LOA 

IMPURE,XI 

0 4106 

210 0 40 o 7 

X 

25 0 5 


LEGAL 

RXERROR 

04114 

00 704617 

p 

250 6 


RTJ 

ROACH 

0 4.115 

21007720 

p 

2507 


LCQ 

BACKPTR 

0 4116 

41007656 

p 

250 8 


ST Q 

POINT 

0 4117 

20404105 

p 

25 09 


LOA ,1 

RAFCKQ2 

0 4120 

14711000 


2510 


ENQ 

ACCESS 

0 4121 

14204101 

X 

25.11 


EMI 

READ »X2 

04122 

14101000 


2512 


ENI 

W P F 8 » XI 

04123 

00 7 07 3 72 

p 

2513 


RTJ 

MSIO 

0 4124 

20004105 

p 

2514 


LOA 

RAFCK02 

0 4125 

.156 0 0 001 


2515 


INA 

1 

0 4126 

44 0 0 410 5 

p 

2516 


SWA 

RAFCK02 

04127 

14300000 


2517 


ENI 

0 ,X3 

0 413 0 

21011000 


2 518 


LOQ 

ACCESS 

0 4131 

04600001 


2519 


ASE 

i 

0 413 2 

21007716 

p 

2 52 0 


LOQ 

FREEOUFF 

0 4133 

20311000 


2521 

RAFCKQ3- 

LOA 

ACCESS,X3 

0 4134 

03504137 

p 

2522 


AGJ,NE 


0 4135 

13000014 


2523 


SHAG! 

12- 

0 4136 

03404140 

p 

2524 


A Gj J , EQ 

* +2 

0 4137 

00704201 

p 

2525 


RTJ 

RXERROR 

0 414 0 

13000014 


2526 


SHAG 

12 

0414.1 

21.004106 

X 

2 527 


LEGAL 

RXERROR 

0 414 7 

00704617 

p 

2528 


RTJ 

R O ACH 

04150 

20311000 


2529 


LOA 

ACCESS,X3 

04151 

14707716 

p 

2530 


ENQ 

FREE8UFF 

0 415 2 

14 2 0 412 i. 

x 

2531 


ENI 

READ »X2 

04153 

14100002 


2532 


ENI 

2, XI 

04154 

007 073.72 

p 

. 253 3 


RTJ 

M3I0 

0 4155 

20007717 

p 

2534 


LOA. 

FREEBUFF+i 

0 415 6 

36007720 

p 

2535 


SCA 

BACKPTR 

04157 

03004161 

p 

2536 


A Z J, £ Q 

* + 2 

04160 

00704201 

p 

253 7 


RTJ 

RXERROR 

0 4161 

03304160 

p 

25-36 


AZJ,LT 

*-i 

0 416 2 

20311000 


2539 


LOA 

ACCESS,X3 

04163 

40007720 

p 

2540 


STA 

BACKPTR 

0 4164 

14600001 


2541 


ENA 

1 

0 416b 

34007652 

p 

2 5 -4 2 


RAD 

FXTFL 

0 4166 

21007716 

p 

254 3 


LOQ 

FREEBUFF 

04167 

10300777 


.. 2544 


ISI 

WPF 8-1,X3 

0 417 0 

01004133 

p 

2 54 5 


UJP 

RAFCK03 

0 4171 

13000030 


2546 


SHAQ 

24 

04172 

21004141 

X 

2547 


LEGAL 

RXERROR 

04200 

01U04076 

p 

2543 


UJP 

RAFGKO1 




2549 

255 0 




0 42 01 

01000000 


2551 

RXERROR 

UJP 

IMPURE 

04202 

54103526 

p 

2552 


LDI 

MSFIX04,X1 

04203 

20103570 

X 

2553 


LOA 

FOEPP,XI 

U42U4 

53600000 


255 4 


TAT 

X2 

0 4205 

21007652 

p 

.255 5 


LOQ 

FXTFL 

0 42 0 6 

20103760 

X 

255 6 


LOA 

F.OTFL, XI 

0 42 07 

05200776 


2 557 


ISG 

WPFB-2,X2 

0 4210 

03403507 

p 

255 3 


AQJ»EQ 

FILEDONE 

04 211 

41104206 

X 

2559 


STQ 

FDTFL,XI 

04212 

.1460 0 0 51 


.2 56 0 


ENA 


04213 

21004201 

p 

2561 


LOQ 

RXERROR 

0 4214 

00 704717 

p 

2562 


RTJ 

PRINTERR 

0 4215 

14477777 


2 563 


£ N A * S 

77777S 

0 4216 

05 5 0 0 0 0 1 


2 564 


Q 3 G , S 

1 

0 4217 

4 U 10 4 0 7 7 

X 

2 56 5 


STA 

FDLP,XI 


SET THE FQ BLOCK CHANGE FLAG 


ZERO THE FDBUSY WORD 
OTH BACKWARD POINTER 


LOAD MAJOR ACCESS BLOCK ADDRESS 
CHECK MAJOR ACCESS BLOCK 
FREE THE MAJOR ACCESS BLOCK 
LOAD THE FD BLOCK POSITION 
LOAD MAJOR ACCESS BLOCK ADDRESS 
ENTER THE BUFFER ADDRESS 
READ IT INTO CORE 


LOAD MINOR ACCESS BLOCK NUMBER 
CHECK MINOR ACCESS BLOCK 
FREE THE MINOR ACCESS ELOCK 
RESTORE POINT IN CASE WE HAVE TO 
SET THE LAST FORWARD POINTER 
RESTORE THE BLOCK NUMBER 
READ IN THE MINOR ACCESS BLOCK 


LOAD THE MAJOR ACCESS BLOCK LOG 
INCREMENT TO THE NEXT MINOR BLOCK 
AND STORE IT BACK 
X3 IS MINOR ACCESS BLOCK LOG 
FAKE PREVIOUS FORWARD POINTER IF 
THIS IS THE FIRST BLOCK 
OTHERWISE, USE THE REAL GNE 
THE MINOR ACCESS BLOCK POINTER 
MUST 3E CONSISTANT WITH THE 
POINTERS IN THE DATA BLOCKS 
JUMP IF OK 

SHIFT SACK INTO PLACE 
CHECK THE DATA BLOCK NUMBER 

LOAD THE DATA BLOCK NUMBER 
READ IN THE TWO POINTER WORDS 
FROM THE CURRENT DATA BLOCK 


LOAD THE BACKWARD POINTER 
CHECK WITH WHAT IT SHOULD BE 

RESULT MUST BE +0 

LOAD THE DATA BLOCK NUMBER 
WHICH IS THE NEXT BACK POINTER 
INCREMENT THE LENGTH OF THE FILE 

LOAD THE FORWARD POINTER 

SKIP IF END OF MINOR ACCESS BLOCK 

LOOP SACK 

FORWARD POINTER TO THE A REGISTER 
IF THE FORWARD POINTER IS REASONA 
ASSUME ANOTHER MINOR ACCESS BLOCK 


RAF ERROR 

LOAD DIRECTORY POSITION 
LOAD THE END POSITION POINTER 
AND SAVE FOR LATER 
LOAD THE CALCULATED LENGTH 
LOAD THE THEORETICAL LENGTH 
SKIP IF BAD END POSITION POINTER 
JUMP IF EVERYTHING IS FINE 
CHANGE THEORETICAL TO CALCULATED 
RAF ERROR 

LOAD THE CALLING ADDRESS 

TELL THE OPERATOR ABOUT IT 

FDLP FOR ZERO LENGTH RAF 

SKIP IF NON-ZERO LENGTH 

SET THE FDLP WORD IF ZERO LENGTH 
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U 4 2 2 0 

146 0 0 7 7 5 


2 6 o 6 

ENA 

WPP2-3 

LARGEST POSSIBLE EPP_ 

0 4221 

06500001 


2 56 7 

QSG,S 

1 

Skip if non-zerc length 

04222 

14600000 


2568 

ENA 

0 

USE 0 IF ZERO LENGTH 

0 42 2 3 

44104203 

X 

2569 

SWA 

FDEPP,XI 

SET THE FOEPP WORD 

0 4224 

20007643 

P 

25 7 0 

LDA 

BIT22 

LOAD THE RECOVERY REQUEST BIT 

0 4225 

35007642 

P 

2571' 

SSA 

BIT23 

SET IN THE OATA NOT PRESENT BIT 

0 4226 

3 /1 0 3 6 b 3 

X 

25 72 

L P ft 

F0CDATEVX1 

AND LOAD THEN FROM THE FDCDATE 

0 4 22/ 

13000030 


2573 

SHAQ 

24 

SAVE THEM IN Q 

0 4230 

20007646 

p 

2574 

LDA 

□ MASK 

LOAD THE MASK FOR THE DATA 

0 4231 

37177777 

X 

2 57 5 

LP A 

FDATE,XI 

LEAVE THE LAST REFERENCE DATE 

04232 

53040000 


2576 

AQA 


SET IN THE PREVIOUS BITS 

0 4233 

35007644 

p 

25 77 

SSA 

eiT2i 

AND SET THE BACKUP REQUEST BIT 

0 4234 

40104226 

X 

2573 

ST A 

FDCOATE»Xi 

AND STORE THE THING AWAY 

0 4235 

20104211 

X 

2579 

LDA 

FDTFLj XI 

LOAD THE FILE LENGTH 

0 4236 

03003507 

p 

2580 

A ZJ , E G 

FILEOOME 

ALL DONE IF ZERO 

04237 

2 0 0 0 76 5 6 

p 

2581 

LO A 

POINT 

OTHERWISE, SET THE LAST FORWARD 

0 4240 

14711000 


2582 

£NQ 

ACCESS 

POINTER TO 77777777 

0 4241 

14204152 

X 

258 3 

t Nl 

READ,X2 

READ IN THE LAST DATA BLOCK 

04242 

14101000 


2584 

EMI 

WPFB, X i 


0 424 3 

00707372 

p 

2585 

RTS. 

MSIO 


0 4244 

20011000 


2586 

LDA 

ACCESS 

LOAO THE FORWARD POINTER 

04245 

0310424/ 

p 

2587 

AZJ,NE 

*+2 

JUMP IF NOT 77777777 

0 4 2 4 6 

03303507 

p 

2 58 8 

AZJ,LT 

FTLEDGNE 

JUMP IF IT IS ALREADY 77777777 

04247 

14477777 


2589 

ENA,S 

777778 


04250 

40011000 


259 0 

ST A 

ACCESS 

STORE THE FORWARD POINTER 

0 4251 

2UQ07&56 

p 

■2 591 

LDA 

POINT 

LOAD THE BLOCK NUMBER 

04252 

14711000 


2592 

ENQ 

ACCESS 

AND WRITE THE THING BACK OUT 

0 425 3 

14203541 

X 

2593 

EMI 

WRITE,X2 


0 42 5 4 

14101030 


2594 

ENI 

WPF8 »X1 


0 4255 

0 0 70 7 372 

p 

2595 

RTJ 

MSIO 


0 4256 

01003507 

p 

2596 

U3P ... 

FILEDONE 

DONE AT LAST 



CD 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 



ASSEMBLER/033 VI.0 09/24/74 0153 PAGE 54 


INITIAL 


T V V V V V 'l* V V V V 


■ V V V V V V '»* V V V V V V V V V V 


V V V -v* V V V * 


• V V V V 


v t r v v •¥■ v A 4 ^ v nr v -?r v ^ -1 


2 59 9 
260 0 
26 01 
2602 
2 60 3 
2604 
26 0 5 
2 6 0 6 
260 7 
2608 
260 9 
2 610 
2611 
2612 
26 ia 

2614 

2615 

2616 

2613 

2619 


THE FOLLOWING ERRORS SHOULD BE DETECTED 8 Y THIS CODE 

FILE LENGTH IS NEGATIVE 
FOBUSY IS NEGATIVE 

8 AO BLOCK NUMBER {LOAD POINT BLOCK) 

BAD BLOCK NUMBER (LAST BLOCK) 

BAD BLOCK NUMBER (NOT FIRST OR LAST BLOCK) 

FORWARD AND BACKWARD POINTERS DO NOT AGREE 
BAD WORD COUNT ON A RECORD 

LEADING AND TRAILING WORD COUNTS DO NOT MATCH 
EQQ WORD BEFORE THE LAST BLOCK 
-U FORWARD POINTER IN THE MIDDLE OF A RECORD 
LAST DATA BLOCK FORWARD POINTER IS NOT -0 
FIRST DATA BLOCK BACK POINTER IS NOT -0 


9 

9 

9 

9 

9 

9 


9 

9 

9 

9 

9 


■99 


v v t r •• 


• -V* *r ir -<* -if *v* -v '»■* -v 


V -*« T "V V TT rf V ' 



04257 

P 

2620 

FILE 

EOU 

* . 

1)425 7 

64103526 

•P 

2621 


LD.X 

MSP 1X04 > XI 

0 426 0 

20104235 

X 

2622 


LGA 

FOTFL,XI 

04261 

05400000 


2623 


A S G •* S 

0 

U 4 2 6 2 

00704671 

p 

262 4 


RTJ 

FDERROR 

0 4263 

03003510 

p 

2 62 5 


AZJ »£Q 

FZL 

0 4 264 

20104062 

X 

2 62 6 


LOA 

FDBUSY •, XI 

0 4265 

05400000 


262? 


ASG j S 

0 

04266 

00704671 

P 

2628 


RTJ 

FQERRGR 

0 4267 

35007714 

P 

2629 


SS A 

SJ5FLAG 

0 4270 

03104341 

P 

263 0 


A Z <j f M E 

FILECHK 

04271 

14477777 


2631 


E U A ■? S 

77777B 

0 4272 

40007720 

P 

Z 6 3 2 


ST A 

3ACKPTR 

0 4273 

20104260 

X 

2633 


LOA 

FDTFLtXl 

0 42 74 

13000030 


2634 


SHAQ 

24 

0 42 75 

20104217 

X 

2635 


LOA 

FDLP 9 Xi ' ■ 

0 4276 

05500002 


26 J 6 


QSGjS 

2 

0 4277 

01004331 

p 

2637 


UJP 

HSFX03 

U 43 0 0 

41007702 

p 

263 8 

■ MSFX02 

STQ 

ACGLNTH 

i) 4 3 a i 

21004172 

X 

26 3 9 


LEGAL 

ERROR 

0 4 3 0 7 

40007656 

p 

2640 


STA 

poin r 

0 4310 

14707716 

p 

2641 


E N Q 

FREEBUFF 

04311 

14100002 


2642 


: t MI¬ 

2, XI 

04312 

14204241 

X 

264 3 


EN! 

READ,X2 

0 4313 

00707372 

p 

2644 


RTJ 

HSIG 

0 4314 

20007720 

p 

2 645 


LOA 

BAG.KPTR 

0 4315 

36007717 

p 

2 6 46 


SC A 

FREEBUFF+1 

0 4316 

05600001 


2 6 4 7 


ASG 

i 

04317 

3440 00 0 0 


2 648 


ASE »S 

. 0 ... ■ 

0 4320 

00704702 

p 

2649 


RTJ 

ERROR 

04321 

20007656 

p 

2 65 0 


LDA 

POINT 

0 4322 

40007720 

p 

2 651 


STA 

8 ACKPTR 

i) 4 32 3 

0070461 7 

p 

2652 


RTJ 

ROACH 

0 43 24 

20007716 

p 

2653 


LOA 

FREEBUFF 

0 4325 

21007702 

p 

2654 


LDQ 

ACGLNTH 

04326 

15577776 


2655 


INQ,S 

-1 

04327 

04500001 


2 65 6 


Qst»S 

i 

0 4 3 3 0 

01004300 

p 

2 65 7 


UJP 

MSFXQ2 

04331 

21004301 

X 

2658 

MSFXQ3 

LEGAL 

ERROR 

0 4337 

00704617 

Pill: 

2659 


RTJ 

ROACH 

0 4340 

01003507 

p 

2 66 U 


UJP 

FILEDONE 


V V ¥ V V T V 'f T T V VT T V TT V V* V 1 TT V T T V -V* T T T T T ^ ^ v T ■?* 


LOAD THE LENGTH OF THE FILE 
LENGTH MUST BE POSITIVE 
BAD NEWS 

JUMP If ZERO LENGTH 

LOAD THE BUSY COUNTER 

WHICH SHOULD ALSO BE POSITIVE 

■DO WE WANT TO CHECK ALL FILES 
EXAMINE THOROUGHLY If IT WAS BUSY 


LOAD THE LENGTH OF THE FILE 
PUT THE LENGTH INTO Q 
LOAD THE STARTING BLOCK NUMBER 
SKIP IF MORE THAN 1 BLOCK 


IS THE BLOCK NUMBER REASONABLE 
SAVE THE CURRENT BLOCK NUMBER 


SLOCK POINTERS 00 NOT AGREE 
LOAD THE CURRENT BLOCK 
SAVE THE NEXT BACKWARD POINTER 
FREE THE BLOCK 


IS THE BLOCK REASONABLE 
FREE THE BLOCK 



Q) 

Q 

0 


O 


0 

0 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

0 

o 

o 

0 

o 
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0 4 3 41 

P 

2 662 

FILECHK 

£QU 

* 

tJ 43 41 

47 0 0 35 3 4 

P 

2 66 3 

STI 

FDWFLAG ,0 

0 4 3 4 2 

14600000 


2664 


ENA 

0 

04343 

40104264 

X 

2665 


STA 

FOBUSY,XI 

0 4344 

47007651 

P 

2666 


STI 

F XE PP , 0 

0 4345 

14600001 


2 66 7 


ENA 

1 

0 4346 

40007652 

P 

2668 


STA 

FXTFL 

04347 

20104275 

X 

2669 


LOA 

F L3L P , X 1 

0 435 0 

21004331 

X 

267 0 


LEGAL 

FXERROR 

0 4356 

40 0 0 7656 

p 

2671 


STA 

POINT 

0 435 7 

40007650 

p 

2672 


STA 

FXBLQGK 

0 436 0 

14204312 

X 

2673 


ENI 

READ ,X2 

04361 

14101000 


2 674 


ENI 

WPF 0,X1 

0 4362 

14711000 


26 75 


ENQ- 

ACCESS 

04 363 

00707372 

p 

2676 


RTJ 

MS IO 

04364 

20011001 


2677 


LDA 

ACCESS+i 

0 4 3 6 5 

03004367 

p 

2678 


A Z J * E Q 


0 4366 

00704702 

p 

26/9 


RTJ 

ERROR 

0 436 7 

03204366 

p 

2 68 0 


AZJ,GE 

^-*1 

04370 

2000765b 

p 

2 681 


LOA 

POINT 

0 4371 

40007720 

p 

2682 


STA 

BACKPTR 

04372 

00704617 

p 

2683 


RTJ 

'ROACH 

U4373 

14200000 


2 68 4 


ENI - 

8,X2 - 

0 4 3 7 4 

47207651 

p 

2685 

pm a 3 

STI ' 

FXE PP,X2 

0 43 75 

20211002 


2636 


LDA 

ACGESS+2,X 2 

0 4 3 7 6 

03204414 

p 

268 7 


A Z J , 6 E 

PM05 ' 

0 4377 

37007645 

p 

2686 


LP A 

BIT16M1 

0 4 4 0 0 

03104414 

p 

2689 


AZJ',ME 

PM05 

0 4 4 01 

20211002 


2 69 0 


LDA 

ACCESS+2, X2 

04402 

40007653 

p 

2691 


STA 

.GAP 

0 440 3 

12000301 


2692 


SHA 

.,':1 

0 44 04 

04400001 


2 6 9 3 


ASE , S 

1 

0 44 0 5 

00704514 

p 

2694 


RT.J 

FXERROR 

0 4406 

15200001 


2.6 9 5 


INI 

14X2 

0 4407 

-0520 0 776 


2696 


I3G 

WPF8.-.2,X2 

04410 

01004374 

•p 

2697 


UJP 

PM0 3 

-.0 4411 

.14 70 0 0 0 Q 


269 8 


ENQ..'. 

8 ■' - 

04412 

14600001 


2699 


ENA 

7 1 

0 4413 

0100442? 

p 

270 0 


UJP. 

■ pm a s: 

0 4 414 

40007653 

p 

2701 

PM 0 5 

STA 

GAP 

. 04415 

0 3 0 0 4 5 0 3 

p 

2702 


AZJ,EG . 

PMEQD 

04416 

o 7 0 0 i 6 4 5 

p 

2 783 


LPA 

8IT16H1. 

0 4417 

21.00 7655 

p 

2704 


LOQ 

. AQJvLT?- 

MAX GAP 

0 442 0 

03704423 

ip 

2 7 05 


?7* + 3 

0 4421 

03404423 

p 

273 6 


AQJiEQ. .. 
.RTJ 


0 4422 

d 0 7 114 514 

P;" 

278 7 


FXERROR 

0 4423 

5 3 24 0 OCa 


27 08 


AIA 


0 4 424 

16 6 0 0 it 0 2 


270 9 


' IMA ■ 


04425 

13077747 


271 0 


SBAQ 

-.?4. 

0 4426 

51007647 

o 

t; ’ 

2711 


UVA 

K.WPFBM2 

0 4427 

5360 O' GOO 


£ 7.12 

PM 06 

TAI 

X2 

0 443 0 

4100765? 

r; . 

.. r 

2.715 


STQ 

:POSITION 

0 4431 

01004466 

P 

2714- 


UJP 

PM 0 8 ' 

0 4432 

4 720 44 65 

! p ' ' ' - 

2 715 

PM 07 

STI 

PHXZy X 2 

0 443 3 

20011777 


2716 


LDA 

ACCESS+WPF8-1 

0 4434 

40007654 

P 

2717 


STA 

LAS TWGRQ . 

04435 

20011000 


2718 


L, D A 

ACCESS 

04436 

21004350: 

X 

2 719 


LEGAL 

FXERROR 

0 444 4 

40007656 

P- 

2720 


STA.. 

POINT 

04445 

14711000 


2 721. 


cNG 

ACCESS 

U 444 6 

1410.1000 


2 722 


ENI 

WPF8 »X1 

0 444 7 

14204360 

X 

2723 


ENI 

R£A0,X2 

0 445 0 

00707372 

p 

2 724 


RTJ 

MSIO 

04451 

14600001 


2725 


tNA 

i 

0 445 2 

34004477 

p. 

2726 


RAD 

DELTA 

0 445 3 

20011001 


2 72 7 


LDA 

ACCESS+1 

0 4454 

36007720 

p 

2728 


SCA 

BACKPTR 

0 4455 

03004457 

p. 

2 7 29 


AZJtEU 

*'+2 

0 4466 

00704514 

p 

273 0 


RTJ 

FXERROR 

0 445 7 

03304456 

p 

2 731 


AZJtLT 

-1 

0 446 0 

20007655 

p 

2732 


LOA 

POINT 

0 4461 

40007720 

p 

2733 


STA 

BACKPTR 

0 446 2 

00704617 

p 

2 73 4 


RTJ 

ROACH 

04463 

20007654 

p 

2735 


LDA 

LA3TW0RD 

0 446 4 

40011001 


2 736 


STA 

ACCESS+1 

0 446 5 

14200000 


273 7 

PMX2 

ENI 

IMPURE,X.Z 

0 4466 

026U4432 

p 

27 3 6 

PH 0 8 

I JO 

PM 07 , X 2 

0 446 7 

54207657 

p 

2 73 9 


L OI 

POSITION,X2 

0 4 470 

2021100.1 


2740 


LDA 

ACCESS+2-1,X2 


SET THE FD CHANGE FLAG 

SET THE FOBUSY WORD TO ZERO 
ASSUME ZERO LENGTH TO BEGIN WITH 


LOAD THE STARTING BLOCK NUMBER 
CHECK LOAD POINT BLOCK ADDRESS 
USE IT AS THE CURRENT DATA BLOCK 
SAVE AS THE ENDING BLOCK ALSO 
READ THE BLOCK INTO CORE 


LOAD THE BACKWARD POINTER 

POINTER MUST BE -0 

LOAD CURRENT BLOCK NUMBER 
SAVE FOR NEXT BACKWARD POINTER 
FREE THE BLOCK 
X2 IS EPF 

SAVE*AS THE CURRENT EPP LOCATION 

LOAD THE INTER RECORD GAP WORD 

JUMP IF NOT A FILE MARK 

CHECK WORD COUNT - MAYBE BATCH 

WORD COUNT /• 0 PROBABLY BATCH JOB 

GET GAP WORD BACK 

SAVE IT FOR LATER 

FILE HARK = 40000300 

SKIP IF A GENUINE FILE MARK 

THE END HAS SEEN REACHED 

INCREMENT PAST THE FILE MARK 

SKIP If THE END OF THE BLOCK 

LOOP BACK 

SET NEW EPP 

AND READ IN 1 BLOCK 

SAVE GAP INFO FOR LATER 

JUMP IF END MARKER 

MASK TO A WORD COUNT 

CHECK FOR LEGAL INTER RECORD GAP 


WORD COUNT IS TOO LARGE 

ADO IN THE CURRENT POSITION 

ADO TWO IR GAP WORDS 

SHIFT FOR THE DIVIDE 

DIVIDE BY WORDS PER FILE BLOCK 

SET THE NUMBER OF BLOCKS ID REAS 

AND SAVE WHAT MILL Qt THE NEW EPP 

JUMP TO THE LOOP JEST 

SAVE THE NUMBER OF BLOCKS TO READ 

LOAD THE LAST WORD FROM THIS 

BLOCK AND SAVE IT 

LOAD THE FORWARD POINTER 

CHECK NEXT BLOCK FOR LEGAL ADORES 

SAVE AS THE CURRENT BLOCK NUMBER 

READ IN THE BLOCK 


REMEMBER WE READ THIS BLOCK 

LOAD THE BACKWARD POINTER 
CHECK THE THEORETICAL VALUE 

RESULT MUST BE +0 

LOAD THE ADDRESS OF THE BLOCK 

SAVE AS THE NEXT BACKWARD POINTER 

FREE THE BLOCK 

LOAD THE LAST WORD FROM THE 

PREVIOUS BLOCK AND STORE IT THERE 

ENTER REMAINING BLOCK COUNT 

LOOP BACK 

LOAD THE NEW EPP 

LOAD ENDING IR GAP WORD 
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0 4471 

36007653 

P 

2 741 


SC A 

GAP 

04472 

0 3 0 U 44 74 

P 

2 742 


AZJrEQ 

- 7 - + 2 

04473 

00704514 

P 

2743 


RTJ 

FXERROR 

0 4474 

03304473 

P 

2 744 


AZJ,LT 

*-! 

0 44 75 

20007656 

P 

2745 


LOA 

POINT 

04476 

40007650 

P 

2 746 


ST A 

FXBLOCK 

04477 

14600000 


274 7 

DELTA 

E N A 

IMPURE 

0 4500 

47 0 0 4 4 77 

P 

274 8 


STI 

DELTA, 0 

0 45 01 

3 4 0 0 7 6 5 2 

P 

274 9 


RAD 

FXTFL 

0 4502 

01004374 

P 

2 75 0 


UJP 

P M 0 3 

0 4503 

20011000 


2751 

PMEQO 

LOA 

ACCESS 

04504 

03 0 04 5 06 

P 

2752 


AZJ»EQ 

* + 2 

0 4505 

00704514 

P 

2 75 3 


RTJ 

FXERROR 

0 4 5 0 6 

03204505 

P 

2 75 4 


AZJ , GE 


0 45 07 

54103526 

P 

2755 


LQI 

HSFIXG4,X1 

0 4510 

20007652 

? 

2 756 


LDA 

FXTFL 

0 4511 

21104273 

X 

2 757 


LOG 

FOTFL,Xi 

04512 

03403507 

p 

2758 


AQ J , EQ 

FILEOONE 

04513 

00704514 

p 

2759 

2760 

2 761 

2 762 


RTJ 

FXERROR 

0 4514 

U100000Q 


2 763 

FXERRC.R 

UJP 

IMPURE 

0 4515 

21004514 

p 

2/64 

LOG 

FXERROR 

04516 

1460002b 


2765 


ENA 

H#F * 

04517 

00704717 

p 

2 76 6 


RTJ 

PRINTERR 

04520 

20007643 

p 

2767 


LDA 

S.IT22 

04521 

35007642 

p 

2 768 


S3 A 

BIT 23 

04522 

37104234 

X 

2769 


LP A 

FDCDATE,XI 

0 4523 

13 0 U 0 0 3 0 


2770 


SHAQ 

24 

04524 

20007646 

P 

2771 


LDA 

DMASK 

0 4525 

37104231 

X 

2 77 2 


LPA 

,F0ATE*X1 

0 45 26 

53040000 


2773 


AQA 


0 4527 

35007644 

p 

2774 ■ 


SS A 

BIT21 

0 4530 

40104522 

X 

2775 


STA 

FDCDATE.,XI 

0 4531 

21007652 

p 

2.776 


LOQ 

FXTFL 

0 4532 

41104511 

X ■ 

2777 


STG 

FOTFL,Xi 

0 4533 

20007651 

p 

2 778 


LDA 

FXEPP 

04534 

53700000 


' ZJJ 9 


TAX 

■ ■ X .v5 ■ ' • . 

04535 

.0560 0 001 


278U 


ASG 

i 

04536 

04500001 


2781 


QSE ,S 

i ; 

0 4537 

01004545 

p 

.278 2 - 


UJP 

FXGl 

0 4540 

14700000 


2783 


ENQ 

0 

0 4541 

41104532 

X 

2784 


STG 

FOTFL,XI 

04542 

14577777 


2 785 


ENQ»S 

777778 

04543 

0 45 44 

41104347 

V' 

2 736 


STG 

FOLPYXl 

01003507 

p 

2787 


UJP, 

FiLEDONE 

0 4545 

20007650 

P 

2 7 8 8 

F'XOl 

LDA 

FXBLQCK 

0 4 546 

1471IQ 0 0 


278 9 


t NQ 

ACCESS 

0 45 47 

1420444? 

X 

2 730 


ENI 

READ,X2 

3 4550 

'141010 0 0 


2791 


EMI 

WPF0*X1 

0 4551 

00707372 

p 

2792 


RTJ 

MSI 0 

0 4 5 5 2 

20011000 


2793 


LOA 

ACCESS 

0 4553 

03104560 

p 

27 9 A 


AU,NE 

FXO 2 

0 455 4 

03204560 

p 

2 795 


AZJ,GE 

FX02 

0 4555 

20311002 


2 79 6 


L DA 

ACCESS+2,X3 

0 4556 

03104560 

p 

2 79? 


AZJ»NE 

FXO 2 

0 4557 

03203507 

p 

2 73 8 


A L J , G E 

FILEOONE- 

04560 

146 0 3 0 G Q 


27 39 

P X 8 2 ■ 

ENA 

Q 

0 4561 

4 03110 0 2 


2 8 0 0 


S T A 

ACCESS+2,X3 

04562 

14477777 


2 8 01 


ENA , S 

777 77 B 

0 4563 

40011000 


2802 


STA 

' ACCESS 

0 4564 

14711000 


2803 


ENQ 

ACCESS 

0 4 56 5 

142U4253 

X 

2804 


ENI 

WRITE,X2 

0 4 566 

14101000 


28 0 5 


ENI 

WPF8,X 1 

0 4 5 o 7 

20007650 

p 

2806 


LDA 

FXBLOCK 

0 4570 

00707372 

p 

2 80 7 


RTJ 

MS 10 

0 4571 

01003507 

P 

2308 


UJP 

FILEOONE 


COMPARE WITH BEGINNING IR GAP 

RESULT MUST BE +0 

LOAD THE CURRENT BLOCK NUMBER 
SAVE AS THE NEW ENDING BLOCK 
ENTER THE NUMBER OF BLOCKS PASSED 
SET DELTA BACK TO ZERO 
ADD INTO THE CALCULATED TFL 
LOOP BACK 

LOAD THE LAST FORWARD POINTER 

IT MUST 8E 77777777 

LOAD THE FO BLOCK POSITION 
LOAD THE CALCULATED FILE LENGTH 
LOAD THE THEORETICAL VALUE 
JUMP IF THE FILE IS INTACT 


FILE ERRORS 

LOAD THE CALLING ADDRESS 
FILE ERROR 

TELL THE OPERATOR ABOUT IT 
LOAD THE RECOVERY REQUEST BIT 
AND THE DATA NOT PRESENT BIT 
AMD LOAD THEM FROM THE FDCDATE 
SAVE THEM IN Q TEMPORARILY 
LOAD THE MASK FOR THE DATE 
AND LEAVE THE LAST REFERENCE DATE 
MERGE THE BITS FROM THE FOODATE 
AND SET THE BACKUP REQUEST SIT 
ANO STORE THE THING BACK 
LOAD THE CALCULATED LENGTH 
STORE IT INTO THE FD ENTRY 
LOAD THE CALCULATED EPP VALUE 
SAVE FOR FUTURE USE 
SKIP IF EPP IS NON-ZERO 
SKIP If A ZERO LENGTH FILE 

SET THE TFL WORD TO ZERO 

USE 7777777? AS THE FIRST SLOCK 

ALL DONE 

LOAD THE ENDING BLOCK NUMBER 
AND REAO IT IN 


LOAD THE FORWARD POINTER 

JUMP IF NOT 77777777 

LOAD THE END OF DATA WORD 
JUMP IF NOT 00090000 
DOME IF 00330000 

STORE THE END OF DATA WORD 
AND SET THE FORWARD POINTER 
TO 77777777 

AND THEM WRITE THE BLOCK BACK OUT 
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0 45X2 

01 0 0 0 0 U 0 


2 810 

FRBLK 

UJP 

IMPURE 

U45X3 

47104612 

P 

2811 


SI I 

FRBLKXI,XI 

0 45 7 4 

47204613 

P 

2 812 


STI 

FR8LKX2,X2 

0 4575 

13077747 


2813 


SHAO 

-24 

0 4 5 7 & 

51007732 

P 

2814 


OVA 

02 4 

0 4577 

535 0 00 00 


2815 


T A I 

XI 

0 4 6 U 0 

13000030 


2816 


SHAQ 

24 

04601 

5J60Q00U 


2817 


TAI 

X 2 

04602 

16277777 


2 313 


XOI 

77777B,X2 

0 4603 

14400001 


2819 

FRBLKENA 

ENA ,S 

1+IMPURE 

0 4 & 0 4 

12200027 


2820 


SHA 

23, X2 

0 46 0 5 

55400000 


2821 


' ROS 


U 4 6 0 6 

00004606 

P 

2 82 2 

FRBLKLGG 

HLT 

IMPURE 

0 46 U 7 

2110 00 0 0 


2823 


LDQ 

OyXi 

04610 

40100000 


2824 


STA 

0,X1 

04611 

550 0 0O& 0 


^825 


RIS 


0 4612 

14100000 


262b 

FRBLKXi 

EN1 

IMPURE,XI 

04613 

14 2 0 0 0 0 Q 


2827 

FR6LKX2 

ENI 

IMPURE,X2 

0 4614 

01004572 

P 

2 82 8 
o ^ O 


UJP 

FRBLK 

04615 

35100000 


4. O U. J 

2830 

SSA0X1 

SSA - 

0,X1 

0 4616 

37100000 


2 831 
2832 

LPAOX'l 

LPA 

0 , A1 

0 4617 

01000000 


283 3 
2834 

ROACH 

UJP 

IMPURE 

0 462 0 

40007 656 

P 

2835 


STA 

POINT 

0 4621 

21004436 

X 

2836 


LOQ 

LIBLAD 

0 4622 

03704666 

P 

2837 


A Q J, L T 

ROACH05 

0 4 6 2 3 

00704572 

P 

2838 


RTJ 

FRBLK 

0 462 4 

04000001 


2839 

ROAGHXX 

ISE 

IMPURE+i,0 

0 4625 

03 404627- 

P 

2 84 0 


A Q J »E G 

♦■*■2 . 

0 4626 

01U 04b17 

P 

2841 


UJP 

ROA CH 

0 4627 

00004627 

P 

2842 


HLT 

4r 

0 4630 

20003731 

X 

2843 


LOA 

MXSLIST 

0 4631 

111 0 0 4641 

p 

,2844 


UJP 

ROACH 0.3 

04632 

20200002 


2845 

ROACH01 

LOA 

2 , X 2 

04633 

21007656 

p 

2846 


LDQ 

POINT 

0 4634 

03504640 

p 

2847 


A QJ,NE 

RGACMG2 

0 4635 

14477777 


28 43 

’ ,7 . ■ V '■# ' 

ENA. »S 

777778 

0 4636 

40200003 


2649 


STA 

3 , X 2 

04637 

G1Q04653 

p 

2850 


UJP 

ROACH04 

0 464 0 

20200001 


2 851 

R0AGHQ2 

LOA 

i * X 2 

04641 

53600000 


2 852. 

R0AGH83 

TAI ■ 

X2 • 

0 4642 

02604632 

p 

•28-53 


IJD. 

ROACH 01, X 2 

0 4 6 4 3 

14300002 


2854 


ENI 

' ?*X3. 

0 4644 

00703007 

X 

2 8 65 : 


RTJ 

GETMEM 

0 4645 

20007656 

p 

2 85 6 


LD.A 

POINT 

0 4 6 4 o 

14577777 


2857 


E N Q » S 

777778 

0 4 6 4 7 

45 3 0 0 0 01 


2858 


STAG 

i,X3 

0 465 0 

20 0 0 463 0 

X 

2859 


LOA 

MXSLIST 

04651 

40303000 


2860 


STA 

0,X3 

04652 

47.304650 

X 

2861 


c T T 

Ot .!-J,: ■ 

MXSLIST,X3 

0 465 3 

14277770 


2862 

ROACH04 

ENI 

~ 7 , X 2 

0 465 4 

21007656 

p 

2863 


L 0<3 

POINT 

0 4655 

77600400 


286,4 


PAUS 

:: 040:0:87 

0 4656 

010 U 4 6 5 5 

p 

2 865 


UJP 


0 4657 

14600000 


2866 


ENA 

0 

U 4 6 & 0 

13000003 


286 7 


SHAQ 

3 

0 4661 

42424250 

P 05052 0 

2868 


SACH 

SSHSG+36,X2 

0 4 66 2 

02204657 

P 

2869 


IJI 

*~3,X2 

0 466 3 

11024204 

P ,05041 0 

28 7 0 


ECHA 

SSMSG 

0 4664 

14700045 


28 71 


ENQ 

37 

0 4665 

00707426 

P 

2872 


RTJ 

OUT 

0 466 6 

54204617 

P 

2873 

ROACH 05. 

LDI 

ROACH,X2 

0 4667 

47204671 

P 

2874 


STI 

FDERROR,X2 

0 4670 

00004670 

P 

2875 


HLT 

& ■ 

04671 

14000300 


28 7 6 

FDERROR 

NOP 

IMPURE 

0 46 7 2 

54103526 

P 

2877 


LOI 

MSFIX 04,XI 

0 46 7 3 

14600001 


2 8 7 8 


ENA 

1 

0 46 7 4 

4 Q104 34 3 

X 

2879 


STA 

FQ8USY,XI 

0 46 75 

24007642 

P 

288 0 


LC A 

SIT 23 

0 4676 

37104223 

X 

2881 


LPA 

FDEPP,X1 

0 4677 

40104676 

X 

2882 


STA 

FDEPP,Xi 

0 4700 

20004671 

p 

2 8 8 3 


LOA 

FDERROR 

0 4701 

44004702 

p 

2 884 


SWA 

ERROR 

0 4702 

14000000 


2885 

E tK R O R 

NOP 

IMPURE 

U 47 0 3 

14600024 


2 88 6 


ENA 

H/Q t 

0 4 704 

21004702 

p 

2837 


LOQ 

ERROR 

0 47 05 

00704717 

p 

2 83 3 

ERROR X 

RTJ 

PRINTERR 


BLOCK NUMBER TO Q 


WORD NUMBER TO XI 
BIT POSITION TO X2 


SHIFT BIT INTO PROPER POSITION 


LOAD THE VIRGIN WORD 
STORE THE NEW WORD BACK 


SAVE THE BLOCK NUMBER . 

LOAD THE LAST LIBRARY AODRESS+i 
JUMP IF A BAD BLOCK NUMBER 
FREE THE BLOCK 
SKIP If CHECKING BUSY FILES 
JUMF IF SPACE SHARING 


VERY BAD NEWS 

GENERATE A SUBSTITUTION Of 
77777777 FOR THIS BLOCK 
WHICH SHQLO PREVENT THE SITUATION 
FROM GETTING ANY WORSE 
ATTACK EXISTING SUBSTITUTION 


ADVANCE TO THE NEXT LINK IN THE 

SUBSTITUTION LIST 

JUMP IF IT EXISTS 

OTHERWISE, CREATE A NEW LINK AND 

PUT IT INTO THE SUBSTITUTION . L IST 

LOAD THE BLOCK NUMBER 

SUBSTITUTE 77777777 

STORE INTO THE LINK 

AND CHAIN THE LINK INTO THE LIST 


PRINT 3 OCTAL DIGITS 
FOR THE BLOCK NUMBER 
SENSE FOR TYPEWRITER BUSY 
WAIT FOR IT 
ZERO THE A REGISTER 
SHIFT IN AN OCTAL DIGIT 
STORE INTO' THE MESSAGE 
LOOP BACK 

ENTER THE MESSAGE ADDRESS 
ENTER THE MESSAGE LENGTH 
PRINT IT OUT 

LOAD WHERE WE CAME FROM 
SEND IT AHEAO 

FILE DIRECTORY ERROR 

LOAD THE DIRECTORY POSITION 
AND PUT THE FREEZE ON THE FILE 
SET THE BUSY COUNTER TO 1 
AND CLEAR THE FILE PROTECTION BIT 
TO PREVENT SOMEONE FROM EQUIPPING 
THIS FILE 

LOAD THE ADDRESS WE CAME FROM 
AND SEND IT AHEAD ALSO 
MODERATELY SERIOUS ERRORS 
DIRECTORY ERROR 
LOAD THE GALLING ADDRESS 
AND TELL THE OPERATOR 




ASSEHB L E R / USo Vi.O 09/24/74 0153 PAGE 58 INITIAL 


0 47 0 6 

0 4707 

5 410 3 5 2 6 
20104530 

S' 



2 88 9 

2 89 0 

L OI 

LUA 


m the 

(J 

J 4 7.10 

35007642 

P' 



2 89 1 

S S A 

BIT 2 3 

SET THE UNAVAILABLE BIT 


0 4711 

35007643 

p 



289 2 

SSA 

BIT 22 

SET THE RECOVERY REQUEST BIT 

O 

J 4 712 

40104707 

X 



2 693 

STA 

FOCOATE,XI 

STORE THE WORD BACK 

0 4713 

010 U 35 0 7 

p 



2 89 4 

2 89 5 

UJP 

FILEOQNE 



04714 

p 



2896 

2837 

NSERROR EQU 


RUN-OF-THE-MILL IR MS ERRORS 

O 

04714 

14700000 




2 89 8 

CALLM3IQ ENQ 

IMPURE 

ADDRESS OF LAST CALL TO MSIQ 

G 4 7 i 5 

146 0 0 0 44 




2899 

ENA 

H ? M X 

SAY MASS STORAGE ERROR 


0 47 IS 

01004705 

p 



2900 

2 901 
2902 

UJP 

ERRQRX 


O 

0 4 717 

0100 GO 00 ; 




29 0 3 

PRINTERR UJP 

■ ■ ' IM P U RE I. 



04720 

54103526 

p 



29 0% 

LOI 

MSFIX04-, XI 

LOAD THE FILE DIRECTORY POSITION 

o 

0 4721 

47003534 

p 



2 98 5 

STI 

f DKFLAGf 0 

SET THE FD BLOCK CHANGE FLAG 

04722 

77600400 



2906 

PAUS 

040GB 

SENSE FOR TYPEWRITER BUSY 

0 4723 

0100'+722 

p 



2907 

U-JP 

* - 1 

WAIT FOR THE TYPEWRITER 


0 4724 

42024135 

p 

05027 

i 

2908 

3ACH 

NAMEMS6+1 

SAVE THE ERROR CODE 

; ; o 

04725 

17777777 




2909 

AI4Q 

777778 

MASK TO 15 BITS 

04726 

14600001 

p 



2910 

ENA ' 

1+2 

Z IS A PROGRAM RELOCATABLE 00000 

{J 4 727 

16477777 




2911 

XOA j S 

- a 

SU8.TRAGT FROM THE ADDRESS WE CAME 


0 47 30 

53040000 




2912 

AQA 


FROM 

o 

0 4731 

13077760 




2913 

3 H A Q 

-15 

AND THEN STORE THE RELATIVE 

0 4 7 32 

14277773 




2314 

EH I 

-4,X2 

ADDRESS INTO THE MESSAGE 

04733 

14 6 0 0 0 0,0 




2915 

ENA 

0 



0 47 34 

13000003 




2 91.6 

SHAQ 

3 

GET THE NEXT OCTAL DIGIT 

o 

0 4735 

42424131 

p 

050 26 

i 

2917 

SACH 

FEMSG+25,X2 

AND STORE IT INTO THE MESSAGE 

G 4 7 3 6 

02204733 

p 



2 9 -1 8 

IJI 

*-3»X2 

LOOP BACK 

0 4 737 

110 241Q 0 

p 

05020 

a 

2919 

ECHA 

FEMSG ■ 

ENTER THE ADDRESS OF THE MESSAGE 


u 7 4 0 

14/00032 




292 0 

EHQ 

26 

WHICH IS 26 CHARACTERS LONG ■ 


04741 

00707426 

p 



2921 

RTJ 

OUT 

AND THEN PRINT IT 

o 

04742 

77600400 




2922 

PAUS 

040 0B 

SENSE FOR TYPEWRITER BUSY 

0 4 743 

01004742 

p 



232 3 

UJP 

'"-1 

WAIT FOR IT 


0 4744 

25103654 




2924 

LOAQ 

FOSYMjXl 

LOAD THE NAME OF THE FILE 

o 

Q 47 45 

45005Q32 

p 



2925 

STAQ 

NAMENAME 

STORE INTO THE. MESSAGE 

0 4746 

2Q1035 72 

X 



2926 

LOA 

. FOA.G.C , XI 

LOAD THE ACCOUNT NUMBER 

0 4747 

1410 o a 06 




292 7 

EH I 

■ fe » . X. 1 

ALLOW SEVEN DECIMAL DIGITS 


0 4750 

13077747 




2926 

SHAQ 

-24 

SHIFT FOR THE DIVIDE 

o 

0 4 751 

51007731 

p 



2329 

OVA 

010 

DIVIDE 9Y TEN 

0 4752 

43424161 

p 

. 0 50 34 

i 

2 93 0 

SQGH 

NAMEACC,Xi 

STORE THE DIGIT 

04753 

02504750 

p 



2931 

IJO 

^“3 ?X1 

AND LOOP BACK 


0 4754 

54103526 

p - 



2932 

LOI - 

MSFIXQ4 , XI 

LOAD THE FD BLOCK POSITION 

o 

0 4755 

20104677 

X ■ 



2:933 

2339 

LOA 

FQEPP , XI 

OBTAIN THE HARDWARE TYPE 

0 4 7 5 6 

12077760 




. - JSMAlj-L'J- 

-15 


04757 

17.60 0 017 




2935 

ANA 

HTMASK 



04760 

13077774 




2936 

SHAQ ■ 

— 3. . 

AND PUT IT IN THE MESSAGE 

o 

04761 

4i. 024143 

p 

05030 

vi 

293 7 

SACH 

NAMEHT 

0 47 62 

146 0 00 0 O' 




29 38 

ENA 

0 



0 4 763 

13000003 




■ 2939 

SHAQ 

■3* 

vV . 



0 4764 

42024144 

p 

05 031 

0 

2940 

SACH 

NAHEHT+i 


o 

0 4 7 65 

2 017 7777. 

x. 



2941 

. .LOA. , 

FOUR-NVX1 

LOAD THE USER. NUMBER 

0 4766 

13 0 777 55 




2342 

SHAQ 

-18 

CHECK THE LEADING CHARACTER 

04767 

17600077 




2343 

AN-A 


MASK OFF THE SIGN EXTENSION 


04770 

05600012 




294-4 

AS6 

10 

SKIP IF HOT NUMERIC 

o 

04771 

01005003 

p 



2945 

- UJP 

NPRTfli 

PROCESS FOUR BCD CHARACTERS 

04772 

. 1 4 2 a 0 0 0 0 




2946 

E NI 

. 0 , X 2 

0 477 3 

4242417i 

p 

05-036 

i 

2 9 % 7 

SACH 

.MAMEUS£R,X2 . 

STORE THE CHARACTER AWAY 


0 47 7 4 

13000006 




2 948 

SHAQ 

■ ■ 6 - v.. ; 

SHIFT THE NEXT CHARACTER IN 

o 

04775 

10200003 




294 9 

is i 

3,X2 

SKIP IF DONE 

0 4776 

01004773 

p 



295 0 

UJP 

*~3 . 

LOOP BACK 

0 47 7 7- 

14700077 




2951 

ENQ 

;4-:v7-7B:-J':.! ,/4:7:::;5: ; :-y':4 

PLACE A CARRIAGE RETURN IN 


0500 0 

43024175 

p 

0 5 0 37 

I 

295 2 

SQCH 

■NAMEUSER+4. 

THE MESSAGE 

o 

0 5 0 01 

14577774 




2953 

ENQ»S 

- 3 

SHORT MESSAGE IF ALPHA USER CODE 

05002 

0.1005012 

p 



2954 

UJP 

NPRTQ2 


0 5 0 0 3 

14100006 




2 955 

NPRTQ1 EMI 

6*Xi 

PROCESS A 7 DIGIT USER CODE 


0 5 0 04 

13077771 




295 6 

SHAQ 

-6 

SHIFT INTO Q 

o 

0 5 0 05 

5100 7731 

p 



2957 

OVA 

Q10 

DIVIDE BY TEN 

0 5 0 06 

43424171 

p 

05036 

ri ; :-V 

2 95 8 

S QG H 

NAMEUSER,XI 

STGRE THE DECIMAL DIGIT 

05U 07 

13077747 




295 3 

SHAQ 

-24 

SHIFT FOR THE NEXT DIVIDE 


05 0 10 

02505005 

p 



296 0 

IJO 

* - 3 s XI 

LOOP BACK 

o 

0 5 0 i i 

14700000 




2 961 

ENQ 

0 

REGULAR MESSAGE LENGTH 

0 50 12 

11024134 

p 

0 50 27 

0 

2962 

NPRT02 EGHA 

NAMEM5G 

ENTER THE ADDRESS OF THE MESSAGE 

05013 

15700045 




2 96 3 

I HQ 

NAMEMSGL 

COMPUTE THE MESSAGE LENGTH 


U5U14 

00707426 

p 



2964 

RTJ 

OUT 

PRINT IT OUT 

o 

05015 

54103526 

p 



2965 

LOI 

MSFIX0 4 » XI 

LOAD THE FILE DIRECTORY POSITION 

05016 

77700000 




2966 

SLS 


FOR THE SYSTEMS PROGRAMMER 

0 5017 

01004717 

p 



2967 

UJP 

PRINTERR 

AND RETURN TO THE CALLER 



o 
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77263143 

0 5 U 2 7 

77236060 

U 5 0 3 0 

30631330 

05032 

45454545 

0 5 034 

60212121 

05036 

61646464 


0 00 45 

05041 

77446443 

05053 

77776270 


0 0062 

0 5 0 67 

77775125 


0 00 30 

05075 

25626021 


0 0 U 44 



05106 




7, aFILE. ERROR FOUND AT XXXXX 

7, aQ HT= 

5 ,HT 

9 »NNNNNNNN 

8, AAAAAAA/ 

8 » UUUUUUU-a 
^-NAMEMSG 

10,aNULTIPLE USE FOR FILE BLOCK XXXXXXXX 
Q,aaSYSTEM NOT ENDED PROPERLY CHECKING BUSY FILESaaa 
-8CMSG 

24,REGENERATING DISK TABLES 
*-RGMSG 

36, AND CHECKING ALL FILE STRUCTURESaaaaa 
*-FCMSG 
0 





0 
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0 

W 




230 5 

* 




A? 





2936 

y 




Y 



1 



296 7 

. * ' ' ■ ■ 

SECTION 

TO GENERATE FILE BLOCK 

NUMBERS FOR THE BLOCKS * 

0 

Q 




2 33 8 


THAT HAVE SET BITS IN 

THE BIT 

ARRAY AND TO CALL FREEBLK * 




2939 

■ ■■■,■ V 

TO GET 

THE INFORMATION 

WRITTEN 

OUT ON THE OISKS * 






2 99 0 

..r . .... . 










2991 





A? 

o 

O 




2993 

2994 

r r Ar v v v v v v 

■r v v v v v v v 

v -Y rf v r v Ar v v v v -r -y -V- v 

-v Ar v 4 r ■? v 

Ar "A* Ar Ar -v- Ar Ar A? Ar “A 5, A?" Ar Ar Ar Ar v Ar A' v A* A* Ar v r '«* A* y Y v A* r 




05107 

P 

2995 

GLERCH 

EQU 

*v* 


CLOBBER THE STARTING BLOCK FOR 

; - o 

O 

0510 7 

14303341 

X 

2996 


EN.I 

M3UNITM1 , X3 


G 51 i Q 

20303342 

X 

299 7 

GLOSS TAR 

LDA 

ARRAYTBL,X3 


THE DISK TABLES 


0 5:111 

03305125 

P 

2993 


ft Z J »L T 

clqbend 


JUMP IF NOT ON LINE 



05112 

20303202 

X 

2399 


LDA 

OISKPNT j X3 



0 

o 

05113 

14707634 

p 

3 0 Q 0 


ENQ 

HZEROS 



j 5 i i 4 

14100002 


3 0 01 


EMI 

2,XI 


WRITE JUST 2 WORDS 


0 5115 

14204565 

X 

3 0 0 2 


EMI 

WRITE,X2 





0 5 i i 6 

00707372 

9 

3003 


RTJ 

MSI 0 



o 

o 

0 5117 

20305112 

X 

3004 


LDA 

DISKPMT »X3 



05120 

15600001 


3 0 05 


IMA 

1 


CLOBBER THE FOUR BLOCK LIST 


0 5121 

14707634 

P . 

3 0 Q 6 


ENQ 

MZEROS 


WRITE 2 WORDS AGAIN 



05122 

14100002 


3 00/ 


EMI 

2,XI 


o 

o 

U 5123 

14205115 

X 

3003 


EMI 

WRITE,X2 




0 5124 

00707372 

p 

3009 


RTJ 

MSIO 




0512 b 

02 705110 

p 

3010 

3011 

CL03END 

IJD 

CLCBSTAR,X3 



; o 

o 

05126 

20003406 

X 

3 012 


LDA 

3L0CKTBL,0 


LOAD THE LOW FILE BLOCK NUMBER 


0 5127 

15600030 


fi .13 . 


IMA 

24 


24 BITS WORTH OF BIAS 


. 0-513 0 

13077747 


3014 


SHAG 

-24 





05131 

51007732 

p 

3015 


OVA 

024 


AND COMPUTE THE LOWEST WORD TO 

. o 

o 

05 io2 

44005342 

p 

3 0.16 

3 017 
■ 3 0.18 


SWA 

JLUPCHEC 


CHEGK FOR SPACE 


0 5133 

54103143 

p 


LOI 

MAXADD,XI 


LOAD THE NUMBER OF WORDS TO CHECK 



05134 

15177776 


3 019 


, INI 

-1, XI 


COUNT DOWN TO MAKE USEFUL 


o 

0 513 5 

14200030 


3020 


EMI 

24,X2 



o 



05136 

p 

3021 

JLOOP 

L Q U 

■ «*. 





0 5136 

54377777 

X 

3022 


LDI 

BLKf LAG ,X3. 


IS FREEBLK WRITTING ON THE 



0 513 7 

U53Q0001 


3 02 3 


ISG 

1, X3 


DISKS 

o 

o 

05140 

01005147 

p 

3 024 


UJP 

JZOT 


FAKE A CLOCK INTERRUPT 

Q 5141 

14600110 


3025 


EM A 

1108 



05142 

44000005 


3026 


SWA 

00005B 





0514 3 

00700004 


3027 


RTJ 

00004B 



0 

o 

05144 

77740000 


302 8 


VFO 

A12/EINT 



0 5145 

54305136 

X 

3029 


LOI 

8LKFLAG ,X3 


WAIT FOR TABLES TO FINISH 


0 5146 

02705145 

p 

3030 
i n ? > 


I JO 





o 


05147’ 

p 

O U JL 

3 0 32 

JZOT 

EQU 




o 

05147 

55400000 


3833 


RGS 






0 515 0 

2510 00 GO 


30 34 


L0A9 

0 , XI 


LOAD SOME BITS 



05151 

550000Q 0 


3 085 


RIS 




o 

o 

05152 

13200000 


30 36 


SHAQ 

0 ,X2 



0 515 3, 

03105155 

p 

3037 


AZJ,NE 

*■ + 2 





05154 

03205342 

p 

3 0 38. 


.AZJ,GE 

JLUPCHEC 





0 515 5 

176 0 0017 


3039 


ANA 

i 73 


LOOK AT JUST FOUR BITS 

o 

o 

0 5156 

5 3 7 0 0 0 0 0 


3 040 


TAI 

X 3 



0 5157 

53200000 


3 041 


TIA 

X2 


BIT POSITION TO A 


0 516 0 

4 0 0 0 5 2 3 6 

p 

3 0 42 


3TA 

JX2 


SAVE FOR NEXT TIME 



0 5161 

01305162 

p 

3042 


UJP 

*+l»X3 



o 

o 

0 516 2 

01005237 

p 

3 0 44 


UJP 

J00 



05163 

01005241 

p 

3 0 45 


UJP 

J Q 1 




05164 

01005254 

p 

3046 


UJP 

: ; 'J3 2.. 





05 165 

010 0 52 5 6 

p 

3 047 


UJP 

JO 3 




o 

0 5166 

01005276 

p 

3 0 4 3 


UJP 

J 04 



o 

05167 

0 i 0 0 5 3 0 U 

p 

3 049 


UJP 

JOS 





05170 

01005257 

p 

3 05 0 


UJP 

JOS 





0 5171 

01005314 

p 

3051 


UJP 

J 0 7 



o 

o 

0 517 2 

01005316 

p 

3 052 


UJP 

J10 



0 517 3 

01005320 

p 

3 05 3 


UJP 

Jll 




05174 

01005323 

p 

3054 


UJP 

J12 





0 5175 

01005326 

p 

3055 


' UJP 

J13 



o 

o 

0 5176 

01005332 

p 

3 05 6 


UJP 

J14 



0 5177 

01005334 

p 

3057 


UJP 

J15 




0520 0 

,010 0533 7 

p 

30 58 

3059 

3060 


UJP 

J.16 




o 

0 5201 

53100000 



TIA 

XI 



o 

0 5 2 0 2 

50007732 

p 

3061 


HU A 

024 




05203 

53240000 


3 0 62 


AIA 

X 2 




o 










o 


i 
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O 

05204 

40007721 

P 

3063 


ST A 

TEMP1_ 

0 5 2 U 5 

14677777 


3 0 6 4 


ENQ,S 

77777B 


0 5 2 0 6 

14203105 

X 

3 0 65 


ENI 

MSUNITS , X2 


0 5 2 0 7 

07105126 

X 

3066 


NTH 

BL 0 CKT 6 L , 1 

(3 

05210 

00005210 

p 

8 067 


HIT 



05211 

13077747 


3060 


SHAQ 

-24 


0 5212 

51207775 

p 

3 069 


OVA 

FBPCDEV »X2 


05213 

20207775 

p 

3070 


LUA 

FOPCDEViX2 

o 

0 5 214 

15700003 


30 71 


I HQ 

3 


0 5 215 

03605222 

p 

3072 


AQJ ,GE 

* 1-5 


05216 

54205236 

p 

3073 


LDI 

JX2,X2 


05217 

15200003 


30 7 4 


INI 

3 5 X 2 

o 

05220 

14477776 


3075 


ENA,S 

-1 


0 5221 

01005243 

p 

3076 

307 7 


UJP 

JO IRAQ 

o 

0 5222 

20007721 

p 

3 87 3 


LOA 

TEMPI 

0 5223 

15600024 


3 0 7 9 


IMA 

20 
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534200 77 
14300003 
00704644 
20007736 
40300001 
20007737 
17677777 
4 0 3 0 0-00 7 
21007737 
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v V V V V v V '** V V V V V V V V V "i~ V V V V V ■'«' V V V v V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V *V "V* 'r V -v *1** V 1 

THIS SECTION MILL BUILD OEVICE I/O QUEUES FORM INFORMATION IN SAVED8LK 
ON MASS STORAGE DEVICE ZERO 

SWITCH 4 ON WILL CAUSE THIS SECTION TO BE SKIPPED 

THE SUSPENDED DEVICE INFORMATION IS DESTCRYED AT THE END OF THIS SECTI 
ON. SO IF A CRASH OCCURS THE INFO IS LOST 

THE FORMAT FOR THE DEVICE SAVE INFORMATION IS AS FOLLOWS. 

WORD i MACRO IDENT NAME 

WORD 2 HEADER INFO. BITS 0-14 HAVE COUNT OF SAVED FREE 

STORAGE BLOCKS. BITS 15-23 HAVE MAX RECORD LENGTH 

WORDS 3,4 SPECIFICATION BLOCK. CONTAINS LOAD POINT BLOCK IN 
FIRST WORD AND FILE LENGTH IN SLOCKS IN SECOND WORD 

THERE ARE AS MANY PAIRS AS SPECIFIED IN WORD 2 OF HEADER INFO 
INFORMATION GROUPS FOLLOW ONE ANOTHER WITH NO DELIMETER. EACH GROUP 
HAS A HEADER RECORD AND THEN A NUMBER OF SPECIFICATION RECORDS. 

1 THE BATCH SAVE INFORMATION IS THE SAME EXCEPT FOR HAVING 7 WORD 
- SPECIFICATION BLOCKS INSTEAD OF 2 WORDS AS IN DEVICE BLOCKS. 

THE 7 WORDS ARE A COPY OF THE BATCH FILE CONTROL BLOCK MINUS THE 
• ACCOUNTING WORD 


* 

9 

9 

=f 

■V 

* 

* 

* 

* 

* 

* 

* 

* 

T 

* 


-v* Y T T V T r T V V T *P Y “if* V * 


» v" Pf 'A **'■ 'I- -V“ -v - - r- -v- -v- *v* A?> 1 




0 5612 

20007713 

P 

3418 

0 5613 

03106010 

P 

3419 

0 5 614 

20007537 

P 

342 0 

05615 

17600004 


342 i 

0.5 o 1 o 

03006010 

P 

3422 

0 5617 

14607353 

P 

3423 

05620 

44007360 

P 

3424 

0 5 6 21 

77730000 


3425 

05622 

4 70 0 6546 

P 

3 4.2 6 

0 5623 

20007515 

P 

3427 

05624 

00706710 

P 

3428 


■ 0 5 625 

P 

3429 

05625 

14100002 


3430 

0 56 26 

14307734 

P 

3431 

0 562 7 

0 0 7 0 6522 

P 

3 432 

05830 

0 1Q 0 5 7 2 ? 

P 

3433 

05631 

20007735 

P 

3434 

0 5 532 

03005727 

p 

3 4'3 5 

0 56 33 

54207736 

P 

3 4 3 6 

0 5 634 

05200001 


343 7 

0 5 6 35 

00005625 

P. 

3438, 

0 6636 

14577777 


343 9 

U 56 37 

14177777 

X 

344 G 

05640 

06277777 

X 

8 4 4' 1 

0 56 41 

01005713 

p 

3442 

0 5642 

20177777 

X 

3 4 4 3 

0 5 b 4 3 

44005701 

p 

3444 

0 5 6 4 4 

53200000 


3445 

0 5 6 4 6 

34 0 777 77 

X 

3446 

0 5646 

010057Q6 

p 

3 44 7 


0 564 7 

p 

3 44 3 

0 5 b 4 7 

14307734 

p 

3449 

0 565 0 

14100004 


3449+001 

0 6 661 

00706522 

p 

345 1 

0 5 6 5 2 

00005652 

p 

3452 

0 5 653 

20007736 

p 

345 3 

05654 

0 3 0 0 5 71U 

p 

345 4 

0 5 65 5 

14305403 

X 

3454+001 


8GNSVLP 


BSV8LP 


3454 + 0 G 2 
3 4'p 4+ 0 Q 3 
3454+004 
345 5 
3 45 6 

345 6 + 0 01 
3 45 8 

3458+001 
345.8 + 002 
3 46 0 

3460+001 


LDA 


SJ4FLAG 

SEE IF WE SHOULD RESTORE FILES 

AZ J , 

-ME 

SAVESKP 

NOPE 

LDA 


SLSOITS 

CHECK AND SEE IF WE 

ANA 


4B 

RESTORE INFORMATION 

AZJ, 

EQ . 

SAVESKP 

NOPE 

ENA 


SMASH 

NO IRRECOVERABLE ERRORS ALLOWED 

SVIA 


IR 


VFD 


A 12/DINT 


ST I 


C'HKCHK, 0 

SAY WE ARE REALLY BUILDING QUEUE 

LOA 


SAVEOBLK 

GET OUTPUT DEVICE SAVE BLOCK 

RTJ 


SETB'UP 

GO INITILIZE I/O ROUTINES 

P E QU 


9 


ENI 


2 •» X1 

LENGTH OF ELEMENT 

ENI 


TEMPCTLB-1,X3 

ADDRESS TO PUT STUFF IN -1 

RTJ 


GSAVEBUF 

GO GET IDENT AND LENGTH 

UJP 


SAVEON 

SPLIT SINCE DONE 

, LOA 


TEMPCTLB 

CHECK TO SEE IF DEVICE NAMED 0000 

A Z , 

EQ 

SAVEON 

WAS RETURNED - IF SO WE ARE DONE 

tOI ■ 


TEHPCTLB+1,X2 

GET COUNT OF ELEMENTS 

IS'G 


1 , X 2 

SKIP IF COUNT OK 

HLT; 


BGNSULP 

S DEVICES, CHECK FOR ERROR 

1. tl Q j 

S 

7777TB 

MASK FOR SEARCH 

ENI 


BLOCKSL,XI 

LENGTH OF MACRO IDENT TABLE 

HEQ 


SLOCKS,2 

LOOK FOR DEVICE 

UJP 


DEVMIS . , 

DEVICE MISSING - REWRITE INFO. 

LDA 


BLOCKSPI,XI 

GET MACRO ADDRESS 

SWA 


PCBPOS 

SAVE ADDRESS Of MACRO BLOCK 

TIA 


X 2 

COUNT TO A 

RAD 


I OBUSY 

INC CURRENT COUNT OF OUTPUT I/O 

UJP 


ESVBLF 

JUMP TO END OF LOOP 

EQU 




ENI 


TEMPCTLB-1,X3 

WHERE TO PUT STUFF -1 

ENI 


4, XI 

MOVE 4 WORDS 

RTJ 


GSAVEBUF 

GO GET ELEMENT 

■ HLT 


■Ar 

FILE TROUBLE 

LDA 


TEHPCTLB+1 

GET FILE LENGTH 

AZJ, 

EQ 

DFERROR 

DUMMY ENTRY - IGNORE IT 

ENI 


IDLE,PSA 

POINT TO IDLE AS THE USER 

LDA 


TEMPOTL8+3 

GET JOS NUMBER 

STA 


ACC NUM,PSA 

SAY IDLE IS THE USER 

TAM 


7 7 B 

AND SAVE XABORTED* BIT 

ENI 


3, X 3 

SAY 8 WORO BLOCK FOR FAKE CONTROL 

RTJ 


GETMEM 

BLOCK 

LOA 


TEMPOTLB+i 

GET LOAD POINT BLOCK 

STA 


LP,X3 

PUT IN FAKE CONTROL BLOCK 

LDA 


TEMPCTLB+2 

GET TOTAL FILE LENGTH 

A N A 


77777B 

MASK TO 32K BLOCKS 

STA 


T F L »X 3 

SAVE IN FAKE CONTROL BLOCK 

. LDQ 


TEMPCTLB+2 

GET PART OF RECORD COUNT 


Q 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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0 5 s/ i 

20007735 

P 

34 6 0+002 


LG A 

TEMPCTLB 

ANO THE UPPER 6 TO A 

0 5 6/1 

12000006 


3 460 + 00 3 


SHA 

6 

SHIFT TO LOWER 6 OF A 

0 56/3 

13000011 


3450+004 


SHAQ 

9 

THE REST FROM Q TO A 

0 56 74 

17677777 


3460+005 


ANA 

77777 3 

MASK TO 3 2K RECORDS (*512) 

056 75 

403GOUOO 


3460+006 


5TA 

0 , X3 

AND PLACE INTO CONTROL BLOCK 

0 5 6 7 6 

20 0 07740 

P 

3460+007 


LDA 

TEMPCTLB+3 

GET JOB NUMBER AGAIN 

0 56 77 

12077774 


3460+003 


SHA 

-3 

BIT22 TO BIT19 

0 5 7 0 0 

4 03 0 0 0 0 6 


3460+009 

3 461 


STA 

EPP ,X3 

PLACE INTO CONTROL BLOCK 

0 5701 

14100000 


3462 

PC8PQS 

ENI 

IMPURE,XI 

ADDRESS OF MACRO 

0 5702 

4 7 2 0 5 7 0 5 

P 

3463 


STI 

*+3,X2 

SAVE X2 FOR A BIT 

0 5703 

14205705 

P 

3 464 


ENI 

*+2,X2 

RETURN ADDRESS 

0 5704 

01500022 


3 465 


UJP, I 

QINGLOC,X1 

JUMF TO APPROPRIATE ROUTINE 

0 5705 

14200000 


34 6 6 

3467 


ENI 

IMPURE,X2 

RESTORE COUNTING INDEX 

0 5706 

02605647 

P 

346 8 

E S V 0 L P 

IJD 

BSVBLP,X2 

LOOP TILL QUEUES BUILT 

0 5707 

01005625 

p 

3459 

3470 

3471 


UJP 

86NSVLP 

GET NEXT DEVICE 

U 5 71Q 

14477776 


OFERROR 

E N A , S 

-1 


0 5711 

34005645 

X 

34 72 


RAD 

IOBUSY 

DECRIMENT I/O BUSY 

0 5 712 

01005706 

P 

3 473 

3 4 74 


UJP 

E3VBLP 

GO TRY NEXT FILE 

0 5713 

14 3 0 7 7 3 4 

P 

3475 

OEVHIS 

ENI 

TEMPCTL8-.1, X3 

ADDRESS STUFF COMMING FROM 

0 5714 

14100002 


3476 


ENI 

2 , X1 

2 WORD SPECIFICATION RECORD 

0 5715 

00706603 

P 

3477 


RTJ 

FILEIT 

GO FILE AWAY 

0 5716 

54207736 

P 

3478 


LDI 

TEMPCTL8+1,X2 

GET COUNT OF ELEMENTS 

0 5717 

01005725 

P 

3479 


UJP ' 

OVMSLPE 

GO TO END OF LOOP 


0 5 720 

p 

3420 

0VM3LP8 

EQU 

... *\ 


0 5720 

14100002 


3481 


ENI 

2,XI 

2 WORD ELEMENTS 

05721 

00706522 

P 

3482 


RIJ 

GSAVEBUF 

GET ELEMENT 

05722 

00005722 

P 

3483 


HLT 

*v- 

FILE TROUBLE 

05723 

14100002 


3484 


ENI 

2,XI 

2 WORDS TO WRITE 

0 5724 

U 0 7 0 66 0 3 

P 

3485 


RTJ 

FILEIT 

GO FILE AWAY 

0 5 725 

02605720 

p 

3486 

OVMSLPE 

IJD 

DVMSLP8,X2 

LOOP TILL ALL MOVED' 

05726 

01OG5625 

P 

3487 

348 8 


UJP 

BGNSVLP 

GO TRY ANOTHER GROUP 


05727 

P ' 

348 9 

SAVEDN 

EQU 

.' 2$.. 


05727 

00706660 

P 

3490 


RTJ 

BLOCKDN 

WRITE LAST BLOCK 

0 57 3 0 

00706676 

P 

3491 


RTJ. 

FRELBLK 

GO FREE UNUSED BLOCKS 




G 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

Q 
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3 49 4 

r v v v v v v v-v v 

v v -v -r v v v v 




3 495 

3/. 

THIS CODE 




349 6 

V V V V V V V V -V* V 

V V V V V V V V V 

0 5 7 3 1 

20 0.0 7513 

P 

3499. 


LDA 

0 5732 

0 0 7 0 6 7 i 0 

P 

350 0 


RTJ 

05733. 

14307734 

P 

35 01 

RSTCHLP 

ENI 

0 5 7 34 

14100002 


3502 


ENI 

G 5 7 J 5 

00706522 

P 

36 0 3 


RTJ 

0 5 7 36 

Oi006006 

P 

35 0 4 


UJP 

0 5 737 

20007735 

P 

350 5 


LUA 

0 5740 

03306006 

P 

35 0 6 


A Z J f l r 

05741 

056 7 777 7 

X 

3507 


AS-G 

0 5742 

01005744 

P 

3 5 Q 8 


UJP 

0 57 43 

14600000 


3 5 0 9. 


ENA 

■ u 3 74 4 

44005777 

'P • ' 

3510 


SWA 

0 6 745 

14607735 

P 

3511 


ENA 

0 5746 

40007735 

P 

3512 


STA. 

05747 

5 42 0 7 7 3 b 

P 

3 513 


ID I 

3 575 O' 

01005776 

P 

3514 


UJP 

0 5 751 

14100007 


3515 

68L00P 

EMI 

0 5 752 

14307735 

P 

3 bib 


ENI 

0 5 753 

00706522 

P 

3517 


RTJ 

■ 05754 ■ 

1)0 0 05 754 

P 

3518 


HLT 

05 755 

.20 0 07744 

P . 

3 519 


LDA 

0 5 75 6 

03005776 

P 

■ 352 0- 


■ h t i rr n 
rt jL. vi -f IL M 

05757 

14300003 


■3 5 21 


ENI 

0 5760 

00705662 

X 

3,5 2 2 


RTJ 

0 576.1 

4 0 3 0 G U 0 0 


3 523 


STA 

05762 

35077777 

X 

3 5 2 4 


SS A 

05763 

40407735 

p ■ 

35 25 


STA,I 

0 5 764 

20 0 0 7740 

p 

5 6 2 :; 3 ii -1 l 


LDA 

0 5 765 

37007642 

p ■ 

3525+002 


LPA 

05766 

34407736 

p 

2 6 2 5 + 0 G 3 


RAD, I ' 

0 5767 

16477777 


3525+ 0 04 


X O A , S 

0 5 770 

34007740 

p 

35 25+ 0 0' 5 


RAO 

Q 5771 

14177771 


■ 3 5 2 6 ■ 


ENI 

0 5772 

20107744 

p. 

3.5 2 7 


LDA 

05773 

40300001 


832 8 


STA 

05774 

15300001 


3529 


I K1 

05 7 75 

02106/72 

p 

3 -> t f i 


IJI 

0 5776 

02605751 

p ■ 


E SLOOP 

U1) 

0 5 777 

141 0 a. 0 8 0 


35 82 

BATCH OPT 

E NI 

0 6000 

2 0 5 0 0 776 

X 

S D 3 S 

3 6 3 3+ Q 0 3. 


LDA ,1 

U 6 U 01 

37007642 

o 

* 

■i 5 3 J-s 0 Q 2 


LPA. ■ 

0 6 0 0 2 

35007735 

p . 

3 5 33+0 0 3 


S3 A 

0 60 03 

04607736 

p 

3 533 + 004 
3533+005 

> . ■ 

ASE 

0 6 0 0 4 

40506000 

X 

sus:: 

3538 


STA, I 

0 6005 

01005733 

p 

353? 


UJP 


0 6 0 0 6 

p 

353 8 ' 

35 39 

7 3 54 0 

8EXIT 

ECU 

06006 

0 0 7 0 6660 

p 


RTJ 

0 60 0 7 

0 U 7 066 76 

p 

3541 

354 2 


RTJ 


06010 

p 

3543 

SAVESKP 

EQU 


o 


WILL RESTORE THE LAST NIGHTS BATCH INFORMATION 



SAVE0BLK 
SET6UP 

TEMPCTLB-itX3 

2, XI 

GSAVEBUF 
BEX I r 
TEMPCTLB 
BEXI r 
NBATCHQ 

A.5. ^ p. 

QEF.GUE 

BATCHOPT 

TEMPCTLB 

TEHPCTLB 

TEMPCTLB+1,X2 

EBLOOP 

7 t XI 

TEMPCTLB,X3 
GSAVEBUF 

~Jr- ' 

T EMPCTLB+TFL 
EBLOOP 

3, X 3 
GET MEM 
G , X 3 
SIT17 
TEKPCTLB 
TEMPCTL0+C8P 
8IT23 
TEMPCTLB 

777 77B 

TEMHC1LB+GBP 
“6 s Xi 

1EMPCTL6+6+I, X'i 
I, X 3 

1 a X 3 ■ ■ 

*~3, XI 
38LOOF,X2 
IMPURE,XI 

0 A!C HQ,X1 
8112 5 
TEHPCTLB ■ 
TEHPCTLB 

3ATCHG,XI 

RSTCHLP 

4 s * * 


ADDRESS OF BATCH INFO 
GO INITILTZE I/O ROUTINES 
WHERE TO READ -1 
2 WORD ELEMENTS 
GO GET INFO 
DONE WITH FILE 

NOTHING THERE SPLIT 

SKIP If QUEUE NUMBER TO LARGE 

NQFE USE THIS NO. 

GET DEFAULT QUEUE ADORESS .. 

SAVE THE QUE POINTER 

ADDRESS OF LIST TEMP 

POINT WORD AT ITSELF 

GET COUNT OF ELEMENTS 

GO TO END OF LOOP 

SAY SEVEN WORD RECORDS 

WHERE TO PUT WORDS -1 

GO GET INFO 

FILE TROUBLE 

GET FILE LENGTH 

JUMP IF DUMMY ENTRY 

SAY WE WANT AN 8 WORD BLOCK. 

GO GET THE MEMORY 

POINT THE SLOCK AT ITSELF 

SET INDIRECT SIT 

LINK INTO LIST 

GET JOB NUMBER TEMP 

LEAVE ONLY FT ASXX BIT 

UPDATE THE ENTRY 

FLIP ALL BITS 

CLEAR BIT IF SET 

COUNT -1 OF WORDS TO MOVE 

GET WORD TO MOVE. 

SAVE IN BLOCK 

INC BLOCK POINTER 

LOOP TILL INFO MOVED 

LOOP TILL LIST BUILT 

RELATIVE ADDRESS FCR THIS DUEL 

GET ASSOCIATED POINTER 
RETAIN THE FMT QUEUE* BIT 
OR IN THE POINTER 

SKIP IF THE START CF CHAIN 
{PREVENT PROGRAMMER ERROR) 
APPEND QUEUE 

GET NEXT BATCH GROUP 


BLOCKDN 

FRELBLK 


GG FREE UNUSED BLOCKS 











CD 
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3 54 6 
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3547 

*r 

SECTION 

TO WRITE OUT 

THE SUBSTITUTION LIST IN CASE ANY - 





3 54 8 

. * . 

SUBSTITUTIONS HAVE BEEN CREATED BY INITIAL * 

o 




3549 

"V* 







3551 

3 55 2 

T V V -v V* nc V V 

V V V -V- ■¥ -v V V T V 

v v v v v v r v *r v ^ v -t 

T- V V ¥ ¥ ¥ Y ¥ V -V- ¥ ¥ ¥ V ¥ -V* ¥ ¥ V ¥ ¥ V ¥ ¥ ¥ V ¥ ¥ ¥ ¥ V V ¥ ¥ ¥ ¥ V ¥ ¥ ¥ ¥ ¥ 



o 


0 6010 

P 

3 55 3 

SUB00 

EQU 



0 6 G10 

14304652 

X 

31>54 


ENI 

HXSLIST jX3 




0 60 11 

p 

. . . 355 5 ' 

SUB 01 

EQU 

•v- 


- 

0 6011 

20300000 


3 55 6' 


LDA 

0 , X3 


o 

061)12 

03006035 

p 

3557 


AZJ,EQ 

SUB 05 

JUMP IF THE END OF THE LIST 

06013 

53700000 


3 5 3 6 


TAI 

X 3 

NEXT POINTER TO X3 


0 6014 

21300002 


3559 


LDQ 

2 ? X 3 

LOAD THE SECOND BLOCK NUMBER 

n 

0 60 15 

14106010 

X 

3 b o Q 


ENI 

HXSLIST s XI 



0 60 16 

P 

3 5 6 i 

SUB 0 3 

EQU 




0 6 016 

20 100000 


.3 5 6 2 


LDA 

0 , XI 

LOAD THE POINTER WORD 


0 6017 

03006011 

P 

3 5 8 3 


A Z J » E Q 

SUB 01 ■ 

JUMP IF THE END OF THE LIST 


0 6020 

53600000 


3 5 6 4 


TAI 

X2 

POINTER TO X2 

O 

0 6 021 

20200001 


3 565 


LDA 

1» X2 

LOAD THE FIRST BLOCK NUMBER 

06022 

03406026 

P 

, 3 5 6'6'- 


AQJ,EQ 

SUB 04 

JUMP IF MULTIPLE SUBSTITUTION 


06023 

53200000 


3567 


TIA 

X2 

PUT THE POINTER INTO XI 

o 

06024 

53500000 


3 563 


TAI 

¥ ^ 

A J. 


06025 

01006016 

P 

3569 


UUP 

SUB 03 




0 6026 

P 

357 0 
3571 

SUB 0 4 

EQU 




0 6 026 

20200000 


3572 


LDA 

0 »X2 

REMOVE THE MULTIPLE SUBSTITUTION 

o 

06027 

40100000 


35 73 


STA 

' 0 , X1 


0 6 0 3 0 

21200002 


35-74 


LDQ 

2 * X 2 



0 60 31 

41300002 


3575 


STQ 

2 j X 3 



0 6 0 3 2 

53200000 


3576 


TIA 

X2 

HXSLIST SLOCK ADDRESS TO A 

o 

0 60 33 

1430 0(302 


3577 


ENI 

2,X 3 

ITS FOUR WORDS LONG 

06034 

0 0 7 Q 2 0 0 2 

X ■ 

3578 


RTJ 

FREEMEN 



0 6 0 35 

01006010 

p 

3579 
358 0 


. UJP 

SUB 0 0 

START OVER 

0 

0 60 6b 

1410077?' 


3581 

SUB 05 

■ EMI 

WPF8-1-, XI 

FILL A FILE BLOCK WITH ZEROS 

0 60 37 

14600000 


3582 


ENA 

0 



0 6040 

40104000 


35.83 


STA 

GORE»XI 



06041 

02506040 

p 

3584 


I JO 

» XI 


0 

06042 

14106015 

X 

3585 


ENI 

HXSLISTtXl 

MOVE THE SUBSTITUTION LIST I.NTO T 

06 043 

14200000 


3586 


ENI 

0 » X 2 

BLOCK 


06044 

2010000.G 


3587 

S U 6 06 

LDA 

0 5 X 1 

LOAD A POINTER WORD . 


06045 

03006055 

p 

3 56 8 


ft Z J * E Q 

SUB 07 

JUMP IF DONE 

o 

06046 

53500000 


3589 


TAI 

XI 

BLOCK ADDRESS TO XI 

0 6047 

25100001 


359 0 


L.UAQ 

1 , X1 

LOAD THE BLOCK NUMBERS 


0 6 05 0 

45204000 


3591 


STAG 

CORE * X2 

SAVE THE IN THE FILE BLCOK 


0 6051 

15200002 


■ 35-9 2 


1 N Jl 

2 j X 2 

POINT TO THE MEXT POSITION 

o 

0 6 052 

052 0 1 0 01 


3593 


ISG 

NPF8+1 tXZ 

SKIP IF TOO MANY 

0 6053 

01006044 

p 

35-94 


UJP 

SUB 06 



060 64 

90006054 

p . 

3595 

3- 59 & 


HLT 



o 


0605-5 

p 

359 7 

3U30 7 

EQU 

■ -TT:- 


0 6055 

14101000 


3598 


ENI 

WPFBtXl 

WRITE THE NEW SUBSTITUTION BLOCK 


06056 

1.4-277777 

x ■ 

3 5 9 9 


ENI 

WRITERS •» X2 



06057 

14704000 


3 6 0 0 


ENQ 

CORE 


o 

Ob 0 6 0 

200U7507 

p 

3 601 


LDA 

MXSBLOCK 


06061 

00707372 

p 

3602 


RTJ 

MSI 0 


o 









o 









o 









o 










o 


o 


CD 

CP 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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Ar Ar Ar A* Ar A* v A* A- A- At A* A* v v A- 

v A* Ar A- Ar v v Ar Ar A- Ar Ar 




360 5 * 






360 6 * 

SECTION 

TO SET IDLES 




360 7 * 






** 

w v r r v -v v r v v v r v 4 v 

v Ar v A*- 'r A- A- Ar Ar v Ar v 




3609 






3610 



0 6 0 6 2 

14 3 u 5 655 

X 

3611 

ENI 

IDLE ,PSA 

0 to 0 b 3 

14477777 


3611+001 

ENA , S 

777778 

0 5 0 64 

40305657 

X 

3611+002 

STA 

ACCiNUM »PSA 
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p 
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0 6173 

01006172 

p 

3694 


UJP 
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06225 

15600003 


3 7" Z b 


IN A 

O -1 

06226 

12000014 


. 3 72 7 


SHA 


06227 

5342000b 


■ 3 7 u 8 


1 A K 


0 623 3 

58430028 


3 ?' 2 5 


T J R 


3 6231 

14477/77 

X 

. 3,7 3 o 


ENA ,S 

o 

0 6232 

37 006137 

X 

3 7 3 i 


L P A 


06233 

40006232 

x 

«•! V.7 •$',** . 


ST A 


0 62 34 

20004042 


3 £'3 3 


L O'A 


06235 

40000022 


O I? o 4 


STA 

o 

0 6236 

01077777 

X 

3 7 J 5 


UJP 


06237 

01077777 

x 

373 6 


UJP 



00042 


3 73 7 

QLENGTH 

EQU 

o 







o 







o 



( - 

\ ■ : 




o 







o 







o 







o 








’ to'set'all'page'file‘locations' not'being'used'by 


TO NON-EXISTANT MEMORY AND TO ACTUALLY START THE 


QLENGTH»XI 
QX ,X1 
CORE , XI 
*-2,XI 
040 06 
*-l 
CORE 

QX-CORE 

7743 POINT TO NON-EXISTANT MEMORY 

IDLE * X3 
PF1»X3 

ENDPOINT GET LOWER END OF REAL SYSTEM 

-11 PAGE HO. NOT TO FREE 

GIVINT01 PUT IN CHECK INSTRUCTION 

IMPURE,X2 GET THE NEXT PAGE TO FREE 

0 ■ ' ■ . ' 

*-Q 

IMPURE,X2 


♦-Q + 2 

STILL-SOME TO 

FREE 

GIV INTO 2 

DONE - SPLIT 


PAGETABL,X2 

MAKE THE PAGE 

AVAILABLE 

1 ''' 

FPCNT 

INCRIMENT FREE 

PAGE COUNT 

0,X2 

HEMARRAY 

7 74B 

FIX FOR MEMARR 

AY 

PFW ,X2 

MAKE THIS PAGE 

NON-EXISTANT 

1, X2 

LOOK AT NEXT P 

AGE 

GIVINT01 

LOOP 


PFL OG,X2 

GIVE THE /CORE 

t ADCRESS BAG 

0 

PAGEIA8L,X2 

TO THE SYSTEM 



FPCNT' 

3' 

1.2 

50 

2 3 o,|j 

N X R UN81T S A Y ME' CAN EN 0 N 0W 

INHIBIT 

INHTBIT 

^"“Q + 4 

0 G0228 

RETURN 

PARINT 

--Q.X-.1 . 


Q) 

0 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 













IMBLER/033 V l.U. 0 


06240 

54106263 

P 

06241 

01000000 


0 6242 

47106263 

P 

0 6243 

45006267 

P 

06244 

14100231 


0 6245 

14577777 


0 6246 

20006267 

P 

0 6247 

06306271 

P 

0 625 0 

00006250 

P 

0 6251 

20106272 

P 

0 625 2 

36006270 

P 

0 625 3 

08106246 

P 

0 6254 

41106271 

P 

06255 

20106278 

P 

0 6256 

58 5 0 0 0 0 U 


06257 

041 7717? 


06260 

010 0 62 62 

P' 

06261 

01006240 

P 

0 6 26 2 

21100000 


0 6 263 

14600000 


0 6264 

44100000 


0 6 265 

1 o 0 0 0 0 o u 


0 6 2 o 6 

01006256 

P 

0.6267 

00000000 



06271 

P 

0 6271 

22216323 


06274 

22216323 


06277 

2.2216323 


0 63 0 2 

22434623 


Q 6 3 0 5 

22434623 


0 6310 

22434623 


06313 

23512623 


0 6316 

31244325 


0 6321 

62706265 


0 6 324 

71514647 


0 63 27 

43476321 


06332 

43476321 


06335 

45222163 


06340 

45222163 


0 6343 

45472127 


06346 

45644447 


0 6 35.1 

47212725 


0 635 4 

47212725 


0 6357 

47212725 


0 6 362 

47244710 


0 6 3 65 

47244710 


0 6 3 7 0 

47244710 


0 8873 

47244710 


0 6 3 7 6 

47244710 


0 6401 

47244710 


0 6404 

47434663 


0 6407 

47510122 


0 6412 

47622122 


0 6415 

47634722 


06 42 0 

47644522 


0 6423 

50632122 


0 6426 

26216253 



4 0153 PAGE 7: 


3 74 0 
3741 
3 74 2 

374 3 
3744 
3 7 4 is 
3 746 
3 747 

3748 

3749 

375 0 
3 751 

3752 

3753 
3 754 
3755 
3 756 
3757 
3 75 8 
3 75 9 

3760 

3761 
3 76 2 

3763 

3764 

3765 
3 766 

3767 

3768 
3763 
3 77 0 
3771 
37 7 2 


3 775 


3 fOU 

3781 
378 2 
8 78 3 
3 784 
378 5 
3766 


8789 
379 0 

3791 

3792 
3 793 
3 7 99 
3795 
3 796 
3 79 7 
3798 

379 9 

380 0 

3801 

3802 

3803 ■ 
380 4 
38 0 5 
38 0 6 
38 0 7 

3 80 8 
3 8 0 9 
3810 
3 811 
3812 
3 818 

3814 

3815 

3816 

3 8 i 6 + 0 0 j 


INITIAL 



LINKGNT RfcEQU 
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SCDLPT3L LINKMAC 
8CONSTQ LINKNAME 
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0 6 5 7 8 

34006522 

p 

3892 

0 657 7 

14200000 


3 893 

0 68 0 0 

54306571 

p 

3694 

0 66 01 

47106527 

p 

3895 

0 66 02 

01006522 

p 

3 896 


GSAVEBUF 

UJP 

IMPURE 


ST 1 

STINST,X3 


STI 

HVCNT,XI 


STI 

GX2SVE,X2 


ENI , 

1, X 3 

GX1SVE 

tNI 

.XMPURE+WPFB 

MVSVLP 

E QU 



ISG 

WPF 3 »XI 


UJP 

SVOK 


LDA 

CURBLOCK 


AZJ, LT 

GX2SVE 


ENQ. 

CORE 


ENI 

WPFB,XI 


ENI 

READ,X2 


RTJ 

MSI O 


LDAQ 

CURBLOCK 


STA 

CURBLOCK+1 


LDA 

CORE-f-1 


AQJ,EQ 

^ + 2 


HLT 



LDA 

CURBLOCK+i 

OHKCHK 

ISE 

IMPURE+1 v O 

GHKCHK2 

ISE 

IHPURE+1,0 


UJP 

FILEOK 


STI 

-+2»X3 


RTJ 

ROACH 


ENI 

IMPURE,X3 


LDA , 

CURBLOCK+1 

FILEOK 

STI 

CHKCHK2,Q 


LDI 

F8LKPTR?X1 


ISG ■ 

: F3LKTBLL.) X..1 


UJP 

* + 2 


LHLT,: 7:7: 



STA 

FBLKTBL,Xi.L 


INI 

i * Xl 


STI 

' FBLKPTRsXl 


LDA 

GORE 


STA 

CURBLOCK 


ENI 

2 » XI 

SVOK 

EQU 



LOA :' 

. CORE,XI 

STINSI 

STA. 7 . 

IMPURE,X3 


INI 

1, X1 . 

MVChlT 

ISI 

IMPURE,X3 


UJP 

MVSVLP 


ENA 

1 


RAO 

GSAVEBUF 

6X2SVE 

ENI 

IMPURE,X2 


LDI 

STINST,X3 


STI 

GX1SVE,XI 


UJP 

GSAVEBUF 


ADDRESS TO PUT STUFF IN. 

SAVE COUNT 

yp X2 

INITIALIZE OUTPUT POINTER 
FIX XI 

SEE IF DONE WITH THIS BLOCK 
NOPE QGNT READ ANYTHING 5 
GET NEXT DISK ADDRESS 

NO MORE SLOCKS 
ADDRESS TO READ INTO 
NUMBER OF WORDS TO READ 
FUNCTION 

GO READ IN SAVE BLOCK 

ADDRESS OF THIS AND LAST BLOCK 

FIX BACK POINTER 

CHECK BLOCKS BACK POINTER 

JUMP IF OK 

SOMETHING WRONG 

ADDRESS OF THIS BLOCK 

SKIP If NOT FILE CHECK 

SKIP IF TO CHECK FILE 

MOPE DGNT CALL FREBLK 

SAVE X3 FOR A BIT 

SAY THIS BLOCK IS OK 

RESTORE INDEX 

ADDRESS OF THIS BLOCK AGAIN 

CHECK THE REST OF TnE BLOCKS 

GET FREE BLOCK PTR 

SEE IF TABLE FULL 

STILL ROOM IN TABLE 

YES TABLE FULL - HIT 

SAVE FREE BLOCK IN TABLE FOR 

REWRITES 

SAVE POINTER A 

GET NEXT BLOCK POINTER 
NEXT BLOCK TO READ 1 

NEW POSITION POINTER 

GET WORD 
STORE INFO 

INCRIMEMT CORE POINTER 
SEE IF DONE 
DO NEXT WORD 

DATA MOVED RETURN 
RESTORE X2 
RESTORE X3 

SAVE XL FOR NEXT TIME 

RETURN 


CD 


Q) 

G 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 


o 






a 

ASSEH ULER/OSJ V1 .0 09/24/74 0153 PAGE 78 INITIAL 






v -r r v v -v- v r v • 


v r *v* v v v r -v* v v v v v v v 

Y V Y V V Y Y V V Y V Y Y Y Y Y V V Y Y V Y Y V Y Y Y V Y V Y V "V Y V Y Y Y Y 


( 7 ) 




369 9 

* THIS 

SUBROUTINE HILL MOVE 

THE INFO FROM DATA AREA SPECIFIED 8Y 

Y 





390 0 

* X 3 +1 

TO THE OUTPUT BUFFER. 

THE ROUTINE WILL TAKE CARE OF ALL I/O 






3 91) i 

* THAT 

NEED 

BE DONE WHILE BUILDING BLOCKS. 






8 9 02 

•v- 




■Y 

; o 




39 08 

* 3LOCKON IS 

GALLED TO EMPTY 

THE PARTIALLY FILLED BUFFER• 

* 





’v -r ~<r v v. -i - -s' -«* ■ 

v ~r y* v v 

Y Y V- Y Y V V Y Y Y Y Y Y Y Y Y 

Y Y "V* YYYY^YYVY^YYYYYYYY^YY^fYY “Sr Y- Y Y "Y* Y Y V Y ^ 





3905 







Q 6 6 0 3 

OIOOQOQG 


3906 

FILE.IT 

UJP 

IMPURE 



o 

0 66 U4 

47206647 

P 

3907 


STI 

FIX2SVE »X2 

SAVE X2 



0 6 6 0 5 

47306641 

P 

39 0 6 


STI 

LOADINS,X3 

WHERE DATA COMING FROM 



0 6606 

47106644 

P 

3909 


STI 

MVGNTW , XI 

SAVE NUMBER TO MOVE 



0 6607 

14300001 


3910 


ENI 

i , X 3 

INITIALIZE INPUT POINTER 


o 

0 a 6 1 0 

54206677 

. p 

3911 


L OI 

NFBLKTPT,X2 

SEE IF FIRST TIME THROUGH 


0 6611 

05200001 


3912 


ISO 

1 , X 2 

SKIP IF NOT SO 



0 6 ’a 1 2 

01006652 

P 

3913 


UJP 

WFIRST 

GO DO INITIALIZATION 



0 6618 

14 2 3 0 0 0 11 


3 914 

CURLOC 

ENI 

IMPURE,X2 

CURRENT LOCATION IN X2 


o 

0 6614 

05201000 


3915 

36NMVLP 

ISO 

WPF8,X2 

IS BUFFER FULL 


0 6615 

01006641 

P 

3916 


UJP 

LOADINS 

NOPE PUT WORD IN 



0 6616 

54106677 

P 

3 917 


LOI 

NFBLKTPT,X1 

GET NEXT FREE BLOCK 



0 6617 

20107762 

P 

391 S 


LOA 

FBLKTBL,XI 

GET BLOCK TO USE 


. o 

0 662 0 

15100001 


3919 


INI 

1, X1 

SAY ONE MORE USED 


06621 

47106677 

P 

392 U 


STI 

NFBLKTPT,XI 

SAVE NEW VALUE 



06622 

4 0 U 0 50 Oil 


3921 


STA 

CORE W 

SAVE THE NEW FORWARD POINTER 



0 66<i! 3 

40007640 

P 

8922 


STA 

CUWBLOCK 



0 

0 66 24 

20007641 

P 

3923 ' 


Lb A 

CUW0LOCK+1 

GET ADDRESS OF FULL BLOCK 


0 662 6 

14705000 


3924 


ENG 

COREW 

ACTUAL CORE ADDRESS FOR MSIO 



0 662 6 

14205123 

X 

3925 


ENI 

WRITE,X2 

FUNCTION 



0 662 7 

14.1010 0 0 


392 6.' 


ENI 

WPF8,Xi 



: o 

0 66 8 0 

00707372 

P 

3927 


RT3 

MS IO 

WRITE OUT FULL BLOCK 


0 66 31 

14200777 


3928 


ENI 

WPF6-1,X2 




06632 

14477777 


392 9 


ENA fS 

777778 




0 663 3 

40205000 


3930 


STA 

'COREW,X2 

FILL BUFFER WITH 77777777 


C) 

0 6634 

0 2 6 066 3 3 

P 

3931 


I JO 

*-i ,X2 

LOOF 



06635 

26007640 

P 

3932 


LDft u 

CUWBLOCK 




0 66 3 6 

. 41005001 


3983 


STQ 

CQREW+1 

NEW BACKWARD POINTER 



0 6b 3 7 

40 0 0 7641 

P 

3934 


STA 

CUWBLOCK+i 

FIX BACK PTR FOR NEXT TIME 


o 

0 6640 

14200002 


3935 


ENT 

2, X 2 

FIX X2 



0 6641 

20300000 


3336 

LOADINS 

■LOA 

IMPURE,X3 

GET WORD TO MOVE 



0 66 42 

40205000 


393 7 


STA 

COREW,X2 

PUT IN BUFFER 



0 & 6 4 3 

15200001 


898 8 


INI 

1, X2 

INC BUFFER POINTER 


o 

0 6 6 4 4 

10300000 


393 3 

NVCNTH 

ISI 

IMPURE,X3 . 

SEE IF DONE 


0 6645 

01006614 

p 

3940 


UJP 

BGNHVLP 

GO CONTINUE 



0 6 64 6' 

47.2 06613 

P 

3941 


STI 

CURLOC,X2 

SAVE CURRENT LOCATION 



0 6647 

1420QGGO 


394 2 

FIX2SVE. 

ENI 

IMPURE,X2 

RESTORE X2 


o 

0 66-50 

54306641 

P 

3993 


L DI 

LOADINS, X3 

GET X3 BACK 



0 6 & 51 

01006603 

P 

3 94 4 


UJP 

FILEIT 







8945 







06652 

20007762 

P 

3946 

WFIRST 

l. U A 

FBLKTBL 

GET ACTUAL MAJOR BLOCK 


o 

0 665 3 

4 tJ Q 0 7 641 

P 

3947 


STA 

- OUWELOCK*! 

SAY THIS IS BLOCK WE ARE IN, 


0 6 6 5 4 

14200602 


.3998 


ENI 

2 f & c ■ 

INITIALIZE CURRENT LOCATION 



0 665 5 

14600001 


394 9 


ENA 

i 




06656 • 

44006677 

P 

395 3 


SWA 

■ NFBLKTPT 

SET TO 1 MEANING BLOCK USED 


a 

0 66 5 7 

01006641 

P 

3951 ■ 

~i Q q O 


UJP 

LOADINS 

GO DO MOVE 


0 666 0 

01000000 


.... . , , . , , . . 

$ y 3 

BLOCKDN 

UJP 

IMPURE 




0 6661 

54106677 

P 

3954 


LOI • 

NFBLKTPT,XI 

SEE IF THINGS INITIALIZED 


o 

0 66 6 2 

0410 00 0 0 


3955 


ISE 

0 , X1 

SKIP IF HOT INITIALIZED 



0 6 5 6 3 

01006670 

P 

8956 


UJP 

9BLK0N 

DO WRITE 



0.666 4 

14600001 


5 957 


ENA 

1 




0 6 6 b 5 

44006677 

P 

395 8 


SWA 

NFBLKTPT 

SET TO 1 MEANING BLOCK USED 


■ O 

0 666 6 

20007762 

P 

3959 


LD A 

F8LKT.8L 

GET THE MAJOR BLOCK 


066 67 

01006671 

P 

396 0 


UJP 

T+2 

DONT LOAD ADDRESS 



0 6670 

20U0/641 

P 

3961 

83LKDN 

LOA 

CUW.BLOCK+1 

GET BLOCK. WE. ARE IN 



06671 

14705000 


3 962 


£ N Q 

COREW 

CORE ADDRESS TO WRITE FROM 


C) 

06672 

14206326 

X 

396 3 


ENI 

WRITE,X2 

FUNCTION CODE 


0bb73‘ 

14101000 


3964 


E NI 

WPFB,XI 

NUMBER OF WORDS TO WRITE 



0 6 6 74 

00707372 

p 

3965 


RTJ 

M 310 

DO WRITE 



06675 

01006660 

p 

8 966 


UJP 

BLOCKDN 

RETURN 


o 


o 

o 


o 
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3 9 6 9 

39/1) * THIS ROUTINE WILL FREE ALL UNU 

3971 * 

I y v Y V Y Y V Y Y Y Y Y V Y V Y Y Y Y V Y Y Y Y Y Y V Y Y 


Q b675 

01000000 


3 9 74 

FRELB LX 

UJP 

IMPURE 

0 5677 

14100000 


3975 

NF3LKTPT 

EMI 

IMPURE,XI 

05700 

05100000 


3 9 76. 

F3LKP.TR 

ISG 

IMPURE,XI 

0 6701 

01006703 

P 

3977 

: , ' ; • ; ; . 

UJP 

* + 2 

05702 

010 0 6b 76 

P 

3973 


UJP 

FRELBLK 

0 6703 

20107762 

P 

3979 

FRETSLK 

LOA 

F8LKTBL,Xi 

06 704 

14200001 


393 0 


ENI 

1, X 2 

0 5 7 0 5 

00705310 

X 

3 9 81 


RT J 

FREEBLK 

0 67 06 

15 10 0 0 01 


3982 


INI 

1,X1 

0 67 07 

01006700 

P 

393 3 
3984 


UJP 

F 8 L K P T R 

0 6710 

0100000u 


3985 

3ETBUP 

UJP 

IMPURE 

06711 

14577777 


3936 


ENQ »S 

777773 

0 6712 

45007536 

P 

3987 


STAG 

CURBLOCK 

0 6 713 

47006677 

P 

3938 


STI 

NFBLKTPT,Q 

0 6 714 

47006700 

P 

3939 


ST I 

FBLKPTR,0 

0 6 715 

14601001 


399 0 


E NA¬ 

WPF8+1 

0 6716 

44 0 0 65 2 7 

P 

3991 


SH A 

GX1SVE 

06717 

14477777 


C\1 

■T» 

cn 


ENA ,S 

77777B 

0 6720 

14100777 


3993 


ENI 

WPFB-1,XI 

06721 

40105000 


3994 


STA 

GOREH,XI 

0 6722 

0 2 5 0 fa 7 21 

P 

3995 


I JO 


0 6 7 2 3 

01006710 

P 

3996 


UJP 

SETBUP 


-V- Y Y Y Y Y Y Y Y Y V Y Y V Y Y Y Y V V Y Y “V" Y Y T Y Y Y Y Y V Y Y 

BLOCKS EXCEPT THE FIRST BLOCK. ' * 

v 

Y Y Y Y Y V V Y Y Y Y Y Y Y Y Y V Y “f -S' Y V Y "Y* Y Y Y V Y ^ Y Y Y ^Y Y ^ 


POINTER TO NEXT BLOCK TO USE 
SKIP IF ALL USED OR FREEOED 
GO FREE UNUSED BLOCKS 

GET BLOCK TO FREE 
SAY ONLY ONE BLOCK 

GO FREE IT 

LOOK AT NEXT BLOCK 


INITIALIZE INPUT ROUTINE 
ZERO USED FREE BLOCKS POINTER 
ZERO AVAILABLE FREE SLOCKS PTR 

FORCE FIRST READ 


MAKE WRITING BLOCK ALL 77777777 

LOOP TILL FILLED 

RETURN 


(P 

0) 

Cl 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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0 67 24 

01000U00 


399 8 

3UILQSLK 

UJP 

IMPURE 

0 67 25 

53100000 


.3999 


TIA 

XI 

0 67 26 

13000030 


40 0 0 


SHAQ 

24 

0 6727 

14200000 


4 0.01 

BLKENI 

ENI 

IMPURE , X2 

06730 

20100017 


4 0 02 


LOA 

IDENT s X1 

0 67 31 

45206737 

P 

4 0 0 3 


STAG 

TEMPXDNI* X2 

0 673 2 

15200002 


4004 


INI 

2,X2 

06733 

47206727 

P 

4 0 0 5 


STI 

BLKENI,X2 

06734 

05200144 


4 0 0 6 


ISG 

TEMPIONL,X2 

0 67 35 

01006724 

P 

4 0 0 7 


UJP 

BUILDBLK 

0 6 7 3 6 

00006736 

P 

4 0 0 8 

40 0 9 


H LI¬ 


0 6737 



4010 

TEMPI ONT 

BS S. 

100 


00144; 


4011 

4 012 

4 013 

4014 

TEMPIONL 

EQU 

+-TEMPXBNT 

0 710 3 

oiaoooou 


4015 

3UXLDCRQ 

UJP 

IMPURE • 

0 710 4 

53100000 


4016 


TIA 

XI 

0 710 5 

15577776 


4017 


INC > S 

-1 

0 7106 

14200000 


4 018 

C'RSENT 

ENI 

IMPURE ,X2 

0 7107 

45207115 

P 

4019 


STAG 

TEMPCRS,X2 

0 7110 

15200002 


4 020 


INI 

2, X 2 

0 7111 

47207106 

P 

4021 


STI 

CRSENI,X2 

07112 

05200144 


4022 


ISG 

TEMPCRSL,X2 

0 7113 

01007103 

P 

4023 


UJP 

BUILOCRQ 

07114 

00007114 

P 

4024 

4025 


HLT 

. T ; 

07115 



4026 

TEMPORS 

ess 

100 


00144 


4027 

40274001 

40274-002 

TEMPCRSL 

EQU 

TEMPCRS 


07261 

P 

4 02 7*0 0 3 

8LKLP02 

EGU 

«■ 

0 7261 

47307266 

P 

4 02 7 + Q G 4 


STI 

BLKLPX3iX3 

07262 

5370 0 0 O 0 


4027+005 


TAI 

X.3 

0 725 3 

21300017 


4027+006 


LOG 

IDENT,X3 

0 7264 

45207277 

P 

4027+007 


STAG 

TEHPLP,X2 

0 7265 

152 0 00 02 


4027+008 


INI 

2 V X 2 

07266 

14300000 


40.27*009 

: 3LKLPX3 

ENI 

IMPURE,X3 

0 7267 

052QUO 0 0 


4030 

MAXLP 

ISG 

IMPURE,X2 

U 7 2 7 0 

01007272 

P 

4031 


UJP 


0 7271 

47207267 

P 

4032 


STI 

MAXLP,X2 

072 72 

15277776 


40 33 


INI ' 

— 1 f X2 

07273 

uioooaoQ 


4034 

BLDLPTAB 

UJP 

IMPURE 

0 7274 

0520005Q 


4 03 5 


ISG ■ 

TEMPLPL,X2 

0 7275 

01007261 

P ■ 

4.0 36 


UJP 

. v ; BLKL.P02 : . ■ 

07276 

00Q07276 

P 

4 037 


HLT 

■ 

07277 



4037+081 

TEHPLP 

8SS 

40 " 


0 0050 


4 0 3 9 

TEMPLP'L 

EQU 

^-TEHPLP 


SYMBOL VALUE TO A 

AND .NOW Q 

ENTER TABLE POSITION 
LOAD THE BCD IOENT 


SKIP IF TOO LARGE 
EXIT IF OK 


MACRO ADDRESS TO A 


SAVE INDEX THREE TIL LATER 

FORM POINTER 

GET IDENT FROM MACRO 

SAVE INTO TABLE 

UPDATE POINTER 

RESTORE INDEX 3 

CHECK FOR A NEW MAX 


RESTORE X2 

SKIP IF UNREASONABLE 


ALLOW FOR 20 LINE PRINTERS 
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INITIAL 





4042 

V '(* V V V V T V 


-v- v v -r v v v v v v v v v -i* 'v- v r 'r v 

-«* v v -«* v v w v v v v r w t r v *r w v v v v v -n* v v v v v v v 





4 0 43 



PSUEDC DISK DRIVERS 





4 (J 4 4 









4045 

V 

MSIO 

WILL CALL THE SYSTEM 

DISK DRIVER AND WAIT FOR 





4 046 

V 

COMPLETION BEFORE RETURNING 





4 047 

■ ■ v 




* 




4048 

V 

ZREAD 

WILL CALL THE DISK 

DRIVER IN SOOT 

¥ 




4049 










v -<r *»* -v- r "ir v* -v* -v- J i- -i* 

v -r v v v v v v v v -"<r v v r 

v v v v v v -v t t v v r r y v v v v ^ r v v •¥ v r t -r r t? t ^ ^ rr v 





4051 









4052 






0 7 34 7 

14300000 


4 0 5 3 

WLIM 

ENI 

IMPURE,X3 

ENTER THE COUNTER 


0 7350 

54107723 

P 

4 0 5 4 


LDI 

TEMPO,XI 

RESTORE THE WORD COUNT 


0 7851 

25007721 

P 

r 4055 


LQAQ 

TEMPI 

AND THE ADDRESSES 


07352 

02707400 

P 

4056 


IJO 

MSI 02, X3 



0 7853 

00007353 

P 

4 0 5 7 

SMASH 

HLT 







4058 






0 7 3 1 j 4 

77740000 


4 0 59 

IRWAIT 

V FO 

A12/HINT 



0 7355 

54177777 

X 

4 0 6 0 


LDI 

SUSY,XI 



07356 

02507355 

p 

4061 


IJO 

*-i,X± 

WAIT IF BUSY 


0 7357 

77730000 


4 0 62 


VFD 

A12/DINT 



0 736 0 

01007353 

p 

4063 

IR 

UJP 

SMASH+IMPURE 

IRRECOVERABLE MASS STORAGE ERROR 





4 0 6 4 






0 7 361 

54207724 

p 

4 -0 6 5 

IRERR 

LDI 

TEMP2+i,X2 

LOAD THE IO COMMAND 


07362 

0 4 2 : 3 6 5 6 6 

X 

40 66 


IS £ 

READ,X2 



07 363 

01007347 

p 

4 0 6 7 


UJP 

WLIM 



i) 7 364 

14607354 

p ■ 

4 06 8 


ENA 

IRWAIT 



0 7 3 65 

44007872 

p 

4069 


SWA 

MSIO 



{} 7366 

01007370 

p 

4 07 0 


UJP 

IOWA IT 






4071 






0 7 3 6 7 

. 01007361 

p 

4072 


UJP 

IRERR 



0 7370 

47007421 

p 

407 3 

I0WAIT 

STI 

MSFLAG,0 



0 7 3 71 

01300000 


4 0 7 4 


UJP 

0 , X 3 

RETURN 


0 7 372 

QiOOOiJOU 


4 0 75 

MS 10 

UJP 

IMPURE 



07373 

47307423 

p 

4 0 76 


STI 

MSI0X3,X3 



07374 

45007721 

p 

40 77 


ST AQ 

TEMPI 



0 73 75 

47107723 

p 

4078 


STI 

TEMPS,XI 



0 73 76 

47207724 

P. : 

4 0 79 


STI 

T EMP2+1 ,X2 

SAVE THE IO COMMAND 


0 7377 

14300011 


4080 


ENI 

9»X3 

TRY WRITES 9 TIMES 



07400 

P 

4081 

MS 102 

EGU 




0 7400 

47307347 

P 

4082 


SIX 

WLIMtXS 



0 7401 

14307370 

P 

4 08 3 


ENI 

IOWAIT,X3 



0 7402 

47107421 

p 

4 084 


STI 

MSFLAG,XI 



0740 3 

77730000 


4 0 8 5 


UFO 

AI2/0INT 



0 7 404 

0077777/ 

X 

4086 


RTJ 

FINK 



0 74 05 

20007372 

P 

4 0 8 7 


LO A 

MSIO 

LOAD THE CALLING ADDRESS 


0 74US 

44004714 

P 

4 0 8 8 


S W A 

GALLMSIQ 

SAVE IN CASE OF ERRORS 


0 740 7 

77740000 


40 89 


VFD 

ft12/HINT 



0 7410 

25007725 

P 

4090 


LOAQ 

MUSICTEM 

RESTORE AQ 


07411 

01007413 

P 

4 091 


UJP 

* + 2 



0 7412 

02507417 

P 

4092 

' MUSIC 

IJO 

MUSIC!,XI 

THIS MUSIC IS FOR THE BENEFIT 


0 7413 

14100310 


4 09 3 


ENI 

2 G 0 , XI 

OF THE OPERATORS 


0 7414 

53010022 


4094 


TMO ; 

22B 



0 7415 

45007725 

P 

4695 


ST.AQ 

MUSICTEM 

SAVE AQ 


07416 

13077765 


4 0 96 


SHAQ 

-10 




0 7417 

P 

4 0 97 

HUSIC1 

EQU 




07417 

53040000 


4 0 9 8 


AQA 




0 7 4 2 0 

13077774 


4099 


SHAQ 

- 3, . 



0 7421 

040 0 0 0 0 0 


4100 

MSFLAG 

ISE 

IMPURE,0 

SKIP IF DISK TRANSFER IS DONE 


0/42 2 

01007412 

P 

4101 


UJP 

MUSIC 

PLAY SOME MORE MUSIC 


0 7423 

14300000 


4102 

MS10X3 

ENI 

IMPURE,X3 



0 7424 

77730000 


4103 


VFO 

A 12/DINT 



07425 

01007372 
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